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1*0 IMTRODUCTION 



1.0 IinRQDUCTIQM 

1.1 ayEEQEE 

This 3tandor d sp&ci v'' i es the for'ii and estabHshes the Interpretation 
of programs expressed in the Control Data Corporation Standard 
FOFxTRAN languaget Tha purpose of this standard is to promota 
portability of FORTRAN programs for use on CDC 6nt^ processing 
systeriis. 

1,2 ESQCESSaa 

The combination of a data processing syst^n and the fr^echanisni by 
v?hich prngrams ape transformed for use on that data processing 
system is called a QLSLQ§,ss.3iL in this standard* 

1-3 scaE£ 

1.3.1 i^QLUSiaiiS. 

This standard spec I Pi as J 

(1) The form of a program written in the CDC standard FORTRAM 
I an^u aje 

(2) Rules for interpreting the rr'eanlng of such a program and its 
data 

(3) The form of viriting Input data to be processed by such o 
program operating on data process Ing systems 

(4) The form of the output data resulting from the use of such a 
program on data processing systems 

1.3.2 EXCLUEIQliS.. 

This standard does not specify: 

(1) The iii-ichanisni by Mhich progrsms are transformed for use on a 
data processing system 

(2) The method of transcription of programs or their input or 
output data to or from a data processing medium 

(3) Tha opiirations required for setup and control of the use of 
programs on data processing systems 

(4) The results vihan the rules, of this standard fail to establish 
vin interpretation 
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1*0 IMTRODUCTION 
1,3,2 EXCUJSinMS. 



C5) Tha size or complexity of a program and its d&te that will 
exceed the capacity of any speciTic data processing system or 
the capability of a particular processor 

(6) Tho rango or precision of numeric quantities anJ the method 
of rounding of nuieric results 

(7) The physical properties of input/output records^ files^ and 
u n i t s 

(6) Th€! physical properties and I mp leiuentat i on of storsoe 

1*4 CQMEQEi^AiJIIE 

The requirements/ proh i b 1 1 ions> and options sp*2cifled in this 
standard jenartilly refer to par rr I ss lb Is forpis nn6 relationships tor 
st andar d-conf onn i ng programs rather than for processors* The 
obvious exceptions are the optional output forms produced by a 
procassorji yhich are not under the control of a program. The 
requirements/ prohibitions^ and options for a standard-conforming 
processor usually must be inferred from those given for programs. 

An executable program {2.4.2) conforms to this standard if It uses 
only those fortns and r e 1 at I nnsh Ips described herein and if the 
executable program has an interpretation according to this standard. 
A program unit {2»4) conforms to this standard if it can be included 

In an executabhi program in a nisnncr that allows the executable 

prO:jraia to be standard conforming* 
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processor that are not vnthin the scope 

include standard items that are not port?.ble^ such as external 

procedures defined by means other than FORTRAM* conformance to this 
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1.0 IHTRGDUCTION 

1.4 COMFORflANCE 

standard does not ansurs that a standar d-conf orrn Ing progrcjii will 
execute consistently on all or any standard-conforming processors* 

1.5 iiniAlIQll-y5ED-ILl^IdIs_5IAiiI14EQ 

In this standard,* "must" is to be interpreted as a requirement) 
conversaly^ "must not" is to be interpreted as s prohibition. 

In describing the form of FORTRAN statenients or constructs^ the 
folloviing metalanguage conventions and symbols are used: 

(1) Spacial characters from the FQRTRAM character set> uppercase 
letters^ and uppercase words r\re to be nrittan as shown> 
except where otherwise noted. 

(2) LoHercase letters end lowsrcasa words indicate general 
entitles for s-jhioh specific entities must be substituted In 
actual statements. Once a given lowercase letter or word is 
used in a syntactic specification to represent an entity^ all 
subsequant occurrences of that letter or word represent the 
same entity until that letter or word is used In a subsequent 
syntactic specification to represent a different entity, 

(3) Br'^ck:jtsj £ 3> are used to Indicate optional it^ms« 

(4) An ellipsis.* ••• 9 indicates that the preceding optional 
items may appear one or more times in successiont 

(5) 01 rinks are used to improve readability^ but unless otherwise 
noted h?ve no significance. 

(6) Words or groups of words that have special significance are 
underlined ij5iere thftir m^ianina is described. Titles and the 
met 'J I anguaga sy!7ibols described In 1.5(2) above are also 
uncierl ined. 

An example illustrates the metalanguage. Givon a d*rii<cr i pt i on of the 

form of a statement as? 

CALL siitl CCCa C/nlwD)! 
thQ follo'iino forms are allowad:- 

CALL sub 

CALL syi} () 

CALL 5.yh (^) 

CALL ^uh i3fa) 

CALL suLl (il-»:d^B ) 
etc. 
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1,0 INTRODUCTIOM 

1,5 NQTATIOM USED IN THIS STANDARD 



Vlhan an actual statement is written^ specific 

subst I tu ted' for gyb . and .each ^} for example^ 

CALL ABCD {X>1,0) 



ent i t i es ara 
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2,0 FORTRAH TBRHS AMD CONCEPTS 



This section introduces basic terminology and concepts^ some of 

vihich are clarified further in later sectionst fiany terms and 

concepts of niora specialized meaning ^re also introduced in later 

sections. The underlined j^ords ere described here and used 
throughout this standard, 

2.1 ^EmEMQR 

A £.fi2uaQi2£ Is set orclerecl by a one-to-one correspondence with the 
numbers Is 2/ through Qt The number of elements in the sequence is 

Q, A sequence may be empty^ In vihich case it contains no elements* 

The elements of a nonempty sequences are raferred to as the first 

fjlement^ socond elfjment^ etc. The ath oJenient» where n Is the 
number of elements in the sequence* i s cal I ed the last element. An 

empty sequ-^nC'a has no first or last element. 

2.2 SYHIACII^^II£|JS 




The form of a constant is described in Section 4, 

A s.vQ]lioii£ Q2!ilS takes the form of a sequence of 1 to 31 letters* 

dijitsj or underscores* the first of vihich must be a letter. 

Classification of symbolic names and restrictions on their use are 

described in Section 19. 

A slal^iBiiQi iBl}2i takes the form of a sequence of one. to five 
dijits* one of which must be nonzero* and is used to identify a 
statement ( 3 » ^t) . 

A liiijililflrd takes the form of a specified sequence of letters. The 
keyviords that are significant In the FORTRAN languaje are described 
in Sections 7 through 16. In many Instances* ?? keynord or a portion 
of a keyword also meets the requirements for a symbolic name. 
Whether a particular sequence of characters identifies a keyword or 
a symbolic naius Is impll'jd by context. There Is no sequence of 
characters that Is reserved in all contexts in FORTRAN. 

The set of special cliaracters is described In 3.1.4. A special 

character may be an operator or part of 3 constant or have soma 
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2.0 FORTRAM TERHS AND CONCEPTS 
?.,2 SYNTACTIC ITEMS 



othar special meaning* The interpretation is impliad by context* 
2.3 5IAI£M£tlISi>aQMB£HISA-AtiD-LIIi£S 

A FORTRAM sliaiBafiQt is a sequence of syntactio items^ as described 
in Sections 7 through 16. Except for assignment and statement 
function statements^* each statement be gi ns with a keyword. In this 
standards the keyuord or keyi^ords thsit begin the sttAtement are used 
to identify that statement. For example/ a DATA statement begins 
with the keynord DATA. 

A statement Is writt^m in ona or rnor.?. lines/ the first of which is 
called an ialliiil iioa <3*2.2)j succeeding lines^ if any/ are called 
soaiioiiaiiQa iines (3.2.3). 

There Is also g line called a comaeQi line (3.2.1)/ which is not 
part of any statement '^n^\ is intended to provide documentation. 



i. • 



3 . 1 £LAss£S>Q£-.SIAI£i4£!iI^- 



Each statement is classified as executable or nonexecutable (Section 
7), executable statements sped^'y fictions. Nonexecutable 
statements describe the characteristics* arrangement/ and initial 
values of dataj contain editing informationj specify statement 
functions; clasisify program unitsj and specify entry points nithln 
subpr ograins. 

2.4 £Sn(;sAO-yMlI^_AHQ_£aD££D!J££a 

A i2£I2-li:20 uail consists of a sequence of statements and optional 
comiTient lines. A program unit is either a main program or a 
s u b p r g r a iii . 

A aiiXQ a£aa£iiil] is a program unit that does not have a FUNCTION/ 
SUBROUTINE^ or BLOCK DATA statement as its first statement; it may 

have 3 PROGRAM statement as its first statement. 

A 2.Uhn.LQ.2Lam is a progr-am unit that has a FUNCTION/ SUBROUTINE/ or 
BLOCK DATA statement as its first statement. A subprogram whose 
first statanunt is a FUNCTION statement Is called a fnflfiiliiD 
SiJt>££oiiLSiIJ« A subprogram whose first statement Is a SUBROUTINE 
stataitiant is called a SJihufijiilQa Sl!ti2£lij£212i« Function subprograms 
and subroutine subprograms are called ££QC£dij£e syl2££Qa£aDlS« A 
subpro^rari vNrose first statement is a BLOCK DATA statement is called 
a bio£ik ilijii) 5iibi2£ail£ilia. 

2.4.1 ESOCaaUELS.. 

Subroutines (16.6)/ external functions (16.5)/ statement functions 
(16,4)/ en) the intrinsic functions (16.3) are callftd £££££iJy££S« 
Subroutines and external functions are called s.xil^Ln2l £££££ dU££S • 
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2,0 FGRTRAH TERMS AND CONCEPTS 
2,4,1 PROCEDURES. 



Function subprograms and subroutine subprograms may specify one or 
more external functions and subroutines^ respectively (16,7), 

Extornal procedures may also be spacifjed by means other than 
FORTRAN subprograms. 

An £ii£i2iit3l2iii ELS2i2£iia is a collection of program units that consists 
of exactly one main program and any number^ including nonej of 
subpr ogr asns and external procedures* 

2.5 VARIABLE 

A idBLlBtiis is an entity thst has both a name and a type, A variable 
T)'ri'{^e is a syi'iboMc name of a datunv. Such a dotum may be identified^ 
defined (2,12)/ and referenced (2,13), Note that the usage in this 
standard of the word "var i ab 1 >"!'* is mor«i restricted than its normal 
us-ii3e> in that it does not Include? prray elements. 

The type of a variable is optionally specified by the appearance of 
the variable name in a type-statement (8,4), If it is not so 
.^P2cifiad.t the type of a variable Is implied by the first letter of 
the variable name to be integer or real (A,l,2)^ unless the initial 
letter type implication is changed by the use of an If^PLICIT 
statement (0,5), 

At any given time during the execution of an executable program^ a 
variable is either defined or undefined (2,12>, 

2*6 AREAI 

An aLL^Y is a (possibly empty) sequence of data that has a name and 
a type, Tha name of an ^rray is a symbol Ic name. An array name is 
the symbolic name of a sequence cf data. Such a sequence of data 
may be identified^ defined.* and referenced. At any given time 
during the execution of ^^n *'jxecutab I <:i program/ an arrry Is either 
defined or undefined, 

2.6,1 AEaAI_£L£M£Hi:i 

Each of the elements of an array is called an aLLay 2i£lB£nt« An 
array name qualified by a subscript is an array element name and 
identifias a particular element of the array (5,4)^ unless the array 
has slzs zoro. Such a datum may be Identified^ defined (2,12)^ and 
referenced (2,13), The number of array elements in an array is 
specified by an 2.LL^1 ilflSi5£aiQ£ (5,2), 

An array el?.m^jnt has a type- The type of all array elements within 

an array is the same^ and is optionally specified by the appearance 

of the array nam^J in e typ ^-stat ement (6,4), If it is not so 

specified^ the type of an array elamant Is Implied by the first 
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^•0 FORTRAM TERMS AND CONCEPTS 
2,6.1 ARRAY ELEMENTS 



letter of tha array nam a to be integ ar orreal (4.1«2)^ unless the 
initial letter type Imp I I cat J on Is changed by the use of sn IMPLICIT 
statement {0.5). 

At any given time durjno th»s execution o f an executable progrsm^ an 

"irray ejanient is althar defined or undefined (2.12), 

^.6,2 AEEAI^SEQliailS 

An anraii S^£2til2fl is a subsequence of sn array. An array name 

qualified by a section subscript identifies a particular subsequence 

of thi* array. The type of all ar r ^y elements within an array 

section is the same as the type of the array name. 

At any given time during ths -^x^cution of an oxecutablo program/ an 
array section Is either deflnad or undefined. 

A chriractar datum is a {possibly empty) sequence of characters. A 
^lihsiLiQa is a contiguous portion of a character datum. The form of 
•1 substring name used to Identify.* define {2.12),» or reference 
(2.13) a substring is lescribthi in 5.10.1. 

At any given time during the execution of an executable program^ a 
substring is either defined or undefined (2.12). 

2.0 s£ALi5ia 

A sfiai^£ is a const Ent> variabla? array f( lementj* scalar-valued 
function reference,* or substrinj. The value of an expression is a 
scalar if each primary in the expression Is a scalar. 

2.9 QULiai-AiiaytiEtii 

A dummy argument in a procedure \s either a symbolic name or an 
asterisk. A symbolic name dummy argument identifies a variable^ 
array/ or i>rcc£dyr« that becomes -issoclated (2.15) viith an actual 
arjuroent of each reference (2,13) to the procedure (16.2/ 16.4,2/ 
16,5.2/ and 16.6.2). An asterisk dummy argument indicates that the 
corresponding actual argument is an alternate return specifier 
(16.6.2.3/ 16.8.3^ and 16.9.3.5). 

Each dummy argument name that is classified as a variable/ array/ or 
dummy procedure may appear wherever an actual nam<2 of the same class 
(S^^ction 19) and type nay appear/ except vfhere explicitly 
p r D h i b 1 1 e d , 
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?-.0 FORTRAM TERMS AND CONCEPTS 

^•10 SCnPE OF SVr^BOLIC HAHSS Aim STATEMENT LABELS 

2.10 S£.a££-n£_SYilBaLIi:-Ml:3£S-^Lin_iIAIEilEMI-LAB£LS 

The scop^ !" a symbolic name {19.1) Is an executable program^ a 
projran unlt^ a statement function statement^ or an impMed-DO list 
in a DATA statement. 

Th 2 nam^ of the main program and the names of block dsta 
subprojrans/ external functlonsj> subroutines^ and common blocks have 
a scope of an executable program, 

Tha names of variabJas^ arrays^ constants^ statan-ent functions^ 
Intrinsic functions^ durnny proceduresf and NAMELIST group names have 
a scope of a program unitt 

Th;> names of vsriables that appear as dummy ?rgum>3nts in a ststetrient 
function statement hava a scope of that statement* 

The names of variables that appear as the DO-variable of an 
implied~00 in a DATA statement have a scope of the implied-DO list. 

Statement labels hava a scope of a program unit* 

2.11 LISI 

A iisi: is a nonempty sequence (2.1) of syntactic entities separated 
by commas. The entities in the list are called iisi ii£iD5* 

2.12 r)££ILlIIiat:l^SIAIJJ5 

At any given time during the execution of an executable program^ the 
iJ^HinitiGQ stsiliJS of each variable^ arrays array section^ array 
(2 1 £ijnent:» or substring is either d£fiQ2fl or yndsflQSiJ (Section 18). 
A defined entity has a value. The value of a defined entity does 
not chang^j until the entity bacomes undefined or is redefined nlth a 
different value. Zero-sized arrays^ array sections and substrings 
are taken alvrays to be defined v-?ith a special value that depends on 
their shape and type. 

If a variables arrays array section/ array element/ or substring is 
undefined/ it does not have a predictable value, 

A previously definQd variable/ non~:^ero sized array/ non-zero sized 
array section/ or array element may become undefined. Subsequent 
definition of a defined variable/ array/ array section/ or array 
•alament is permitted/ except nhore It is explicitly prohibitsd. 

A character entity is defined if it has size zero or if every 
substring of length one of the entity is defined. Mote that if a 
string is dafined/ svary substring of tha string Is defined/ and If 
any substrinj of the string is undefined/ the string Is undefined. 
Defining any substring does not cause any other string or substring 
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?..0 FORTRAN TERMS AND CONCEPTS 
Z,1Z DEFIMITIOH STATUS 

to become undefined* 

An entity is iniiiaii:^ dafiDiid if it has size zero or if it is 
assigned a value in a DATA statement ( Sect ion 9), Initially definad 
entities are in tiie defined state at the beginning of execution of 
nn executable programt All variables and array elements not 
initially d^ifinad^ nor associated (2tl5) nith an Initially definad 
entltyj. are undefined at the beginning of execution of an executable 
program. 

An entity must be defined at, the t iniir a reference to it is executsd. 

2,13 a££FriEii(i£ 

A variable^ arrays array saction^ array i^lementj or substring 
LBfiJLdQSS. is tlie appearance of a variable^ arrays array section/ 
array elementj or substring name^ respec ti ve ly^ 1 n a statement in a 
context requiring the value of that entity to be used during the 
sx2cution of the executable prograr. Mhen a referenca to an entity 
Is executed/ Its current va I ue i s aval I ab le. In this standards the 
act of defining an entity is not considered a reference to that 
entityt 

A procedure r*2ference Is the appearance of a procedure name in a 
statement in a context that requires the actions specified by the 
proceduftj to be ex acuta d during the cixecution of the sxecutable 
prooram. Whan a procodure reference Is axacuted.f the procedure must 
beavailahle, 

A stoi:3g§ secjueQce Is a sequence of storage units. A siQ£BS£ JiQii 

is either a numeric storage unit/ s character storage unit/ or a bit 

star age un i t . 

An integer/ real/ Boolean/ or logical datum has one DUiDfiLifi SiDLSilfi 
Udill in & storage sequence, A double precision or complex datum has 
two numeric storage units in a storage sequence. A half precision 
storage unit is half of a numeric storage unit. A cheract<cr datum 
has one £ha£3i2tii£ iiiflLaaa unii; in a storage sequence for each 
character in the datum. A bit datum has one iili ^ifiJLiillfi iinii in a 
storage sequence for eiJC^5 bit in th?^ datum. 

A storage unit has a sequence of consecutive bit positions- A iiii 
BGsltlao of a storage unit may hold a component of a datum having 
th':it storage unit. This component Is s iiii_vriiu£/ or hii/ of or 
1. A numeric storage unit has 64 bit positions. A character 
storage unit has 8 bit positions. A bit storego unit has 1 bit 
pos 1 1 i on. 
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2,0 FQRTRAM TERliS AND CONCEPTS 

2.14 STORAGE 

If a datum requiras more than one storag?2 unit In s storage 
sequence^ tliose storage units are consecutive* 

Tha concept of 3 storage sequence is usi^d to describe relationships 
thac exist ^Jiion'j variables^ array elementsj arrays> substrings^ and 
common blocks. This standard does not specify a r el a 1 1 onshi p 
between the storage sequence concept and the physical properties or 
implementation of storage!. 

2.15 ASSQCIAIIOM 

AsS-oai^iian of entities exists If the same datum may be identified 
by different symbolic na-nes in the saTie program unitj or by the same 
name or a different name In different program units of the same 
executable program (13.1). 

Entities may become associated by the follovHng: . . 

(1) Common association (8.3.4) 

(2) Equivalence association (8.2*2) 

(3) Arou-'iont sssociation (16.9.3) 

(4) Entry association (16.7.3) 

2.16 ^UAEE 

The silBSS of an array or array section is the number of dimensions^ 
th-:; size of each dl.nsnslon^ and whether the array Is defined as 
roHviise or columnwise. 

The shape of an $.rray is denot*?.d by (dl^ d2^ • • •/ dn) uhere n is the 
nu"iibcr of d 1 iiens i ons and dl is the size of the jth dimension. 

Two array objects (arrays array section^ array-valued expression> 
ar r sy~va I ued function^ elemental function reffjriLnce with an array 
result) are of the same shape only if they have the same number of 
dimensions* the size of each dimension is the samejj and they are 
both columnwise or both rowwise. 

Th e £hiliEi2 f a sea! ar is zero d I men? I o ns . 

The shape of a user array-valued function is determined by the 
declaration for thi function name as an array In the PROCEDURE 
INTERFACE riFOP.MATIOM. BLOCK. The shape of an elemental Intrinsic 
function is the shape of the argument with the greatest number of 
d i mens i ons • 
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2,0 FORTRAN TERMS AMD CONCEPTS 
2,17 COMFGRHABILITY 



2,17 £a!4£aSilMlLIIY 

Two array objects (array.? array section^ array-valued express ion> 
array-valued function/ elemental Function reference with an array 
result) are isanfaLmBllla if they have thf? same shape, A scalar is 
conformable with any arrays array sectlonj. or array expression. The 
scalar is treated as if it had been extended to an array with the 
sania shap^i in nhich all array elements havo the value of the scalar. 

2-10 ALLQCAIML£ 

An allocatable array is iiilii£iaifi£! if it has been specified during 

the execution of an ALLOCATE statement and not subsequently 

released. An allocatable array is no longer allocated if it has 

been specified during the execution of a FREE statements or if 
tixacution of the subprogram In ^hich it was declared has been 

terminated by sxecutlon of a RETURN or END statement and the array 
name is not specified by a SAVE statement. 
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3.0 CHARACTERS^ LIMES, AMD EXECUTION SEQUENCE 

3.1 £QSISAtl^C.LiAR^aiEE-S£I 

The FORTRAN character set consists of twenty-six lettersji ten 
digits/ and fifteen special characters. 

3.1.1 LEIIEE^ 

A ioiie£ is one of the tnenty-sl x char ac ters J 

A B C E F G H I J l< L M N OPORSTUVVJXYZ 

Each letter also has a lower case form. Except in a character 
constant (4.3.1)/ HoMerith constant (4.9.1.1)/ apostrophe edit 
di22criptor (14.5.1)ji quote edit descriptor (14.5.1)/ or H edit 
descriptor (14.5.23/ the loner case form of a letter is interpreted 
as merely a variation in the graphic used for the letter. In a 
character constant/ Hollerith constant/ apostrophe, adit descriptor/ 
quote edit descriptor/ or H edit descriptor/ the lower case form of 
a letter is i nter pre ted as a different character from. the upper case 
form of the letter/ except as explicitly noted elsevjhere within this 
languaos spac i f i cat i on. 

3.1.2 niaii^. 

A illali is one of the ten characters: 

123456709 

A string of digits is interpreted in the decimal base number system 
Hh^n a numeric i ntarprotat i on is appropriata. 

An Qstai-ilijii; Is one of the eight characters: 

12 3 4 5 6 7 
The di^jlts In an octal constant (4.^.1.2) must all be octal digits. 
A b£2iail^Sil!!iii-.lil£lii is one of the sixteen characters: 

1 2 3 4 5 6 7 8 9 A B C D if F 

The digits in a hexadecimal constant (4.9,1.3) must all be 
hexadecimal dibits. Except in an octal or hexadecimal constant/ a 
.-jtrinj of dijits is i nterpr et'iJd in the dtjclmsl b£sa number systom 
v;hen a nuiibsr system base Interpretation Is appropriate. In an 
octal constant/ a string of octal digits is interpreted in the octal 
base number system. In a hexadecimal constant/ s string of 
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3,0 CHARACTERS^ LIHHS/ AND eXECUTIOM 5SQUENC 
3,1,2 DIGITS. 



hexadecimal digits is interpreted in the hexadecimal number system. 

An Bi£tiaQil!n2£lxi £.h3.La£.L2.L IS a letter? a digits or the underscore* 

3,1.4 S£EC.IAL^CUAEA£Ii^ES. 

A s£££iai noaractsi is one of the fifteen characters: 




Name of Character 



B I ank 

Equa I s 

Plus 

Minus 

Asterisk 

Slash 

Left Parenthesis 

Right Parenthesis 

Comma 

Decimal Point 

Currency Symbol 

Apostroph c 

Co 1 on 

Quote 

Under SCOT e 



Thi» set of ch^rsict^rs capable of representation In tha processor Is 
y i ven i n Append i X A. 

3.1.5 £0LLAIILi£-5E2yEliC]i-.AyD.£!IAEUK5. 

NoteJ Throuijhout this ssctlonj* S denotes the size of the processor's 
character set. See Appendix A for value of S. 

Character r^; 1 f!t i on al expressions ara evaluated according to a 

collating sscjuencaj determined by a cnli^tloil U^iflbi i^bl^, A 

lejght tnble is fi on£:-"d i msns i on? I integer array of size S. Gach 
elijment of the weight table lias a value betv^jeen zero and S~l 
inclusive. The value of element i of the weight table Is the 

GiaiiatiaO-idSillhi for the character with the £tl2La£i£I £L2d£ of i. 

Thi character codes and nraphic representations for all characters 
supported by the processor are given in Appendix A, If c{i) and 
c(j) are characters and i ' and j' ar € their respective collating 
i'n\ 3htS!^ than 

c(i) .opi c(j) has the value true if and only If i'.op.j' has 
the value true^ where .op. is any of tha relatlon?;l operators. 



CONTROL DATA PRIVATE 



Control Data Corporation Standard FORTRAN 



3-3 
83/06/30 



3,0 CilARACTERS^ LlWESj AND EXECUTIOM SEQUSMCE 
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The value of a v^eight tab I e , e lament does not have to 
vjlthin the tablej i.e,j saveral char3cters msy hav 
00 1 1 at ing we i jht • 



be unique 
€ the ssme 



Collation may be directed by the Ii2^ef3_c2il£±ifiD_il£i2tli-i-2l2iS or by 

the iiS.g.Lrs.2*l£l£i£iI CfiiiBilGa Hfji^ht. i.iil2l£* Tha tables sre 

predefined with the values given in Appendix A. The fixed table may 

not foe modified but the program may access and modify the 

user-specified table. A compiler-call statement option or the 
collation control directive (3.7.3) determines which table specifies 
Co II at i on sequence for character re I at ional eKpress i ons. 



The collatinj sequence used by the Intrinsic functions 
Lltj and LLT (16.10) is independent of both the 

usar-spcjc i f i id weinlit tables nnd is th*;refore unaffected 



LGE^ LGT/ 
f i xed and 
by either 



the coiTipl 1 ar-ca n statement option or the collation control 
directive. The intrinsic f unct I on IMDEX (16.10) does not use either 
collation vieight table. The Intrinsic functions CHAR end ICHAR 
(16.10) ratuni values dependent upon the collation iieight tables. 

A program may access or modify the user-specified collation weight 
table by using the procedures CGLSEO^ CSOWM or WTSET (16.12.7^ 
16.12.9^ 16.12.8). 

3.1.6 aLAblli_£iJiSACI£S. 

With the exception of the uses specified (3.2.2^ 3.2.3^ 3.3:> 4.8^ 
4.D.1, 4.9,1.1/ 14.5.1^ and 14.5.2)/ a blank char acter w I th I n a 
program unit has no meaning and may be used to improve the 
appearance of the program unit/ subject to the restriction on the 
numbijr of con,3*?cuti ve continuation linjs (3.3). 

3.2 LIHES 

A line in a program unit is a sequence- of 72 characters. All 
chiracters nust be from the FORTRAM character set/ except as 
described in 3.2.1/ 4.3/ 4.9.1.1/ 13.2.2/ and 14.2.1. 

Th:i charactor positions in a line are called HfliucQS and ere 
nu;jhered consecutively 1/ 2/ through 72. The number indicates the 
sequential position of a character in the line/ beginning at the 
left and proceeding to the right. L i n js are ordered by the sequence 
in which they are presented to the processor. Thus a prograrr; unit 
consists of a totally ordered set of characters. 



3.2,1 £nM!jitii^uH£ 

A nGUia^iQli iina is any line 
c I J m n 1 / or contains only blank 
A comm-^nt lino thst contains 
contain any char act :2r capable of 



that contains a C or an asterisk in 

characters in columns 1 through 72. 

r'k C or an asterisk in column 1 may 

representation In the processor In 
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columns 2 through 



( c:.* 



A co'nnient ]\nB does not affect the executable program In any way and 
may be used to provide documentation. Certain special forms of 
commant lines control procassor behavior. Thass comment lines are 
procassor di£aatiii£iS called Ci-din.££i:i^!2S (3,7). 

Comment lines may appear ^inywherc! in the program unit. Comment 
lines may precede the initial line of the first statement of any 
prooram unit. Comment lines may appear between an initial line and 
its first continuation line or between two continuation lines. 

3.2.2 I!iiIIAL-.LIi^£. 

An iaiti^i iiD£ Is any line that Is not a comment line and contains 
th.:» chir actor blank or the digit in column 6. Columns 1 through 5 
nay contain a statement label {3,4)' or each of the columns 1 
through 5 must contain the character blank. 

3.2.3 cotiiitiyMiDB-UUi:: . 

A £iIililiQLiati£»il iiOii is any Hne that contains any character of the 
FORTRAN character sat other than the character blank or the digit 
in column 6 and contains only blank characters in columns 1 through 
5. A statenent riust not have more than nineteen continuation lines, 

3.3 SIAI£^l£tlI5 

Th?. statements of tha FORTRAN langu'-jge are described In Sections 7 
through 17 and are used to form program units. Each statement Is 
written In columns 7 through 72 of an initial line and as many as 
ninatc-en continuation lines. An END statement is written only in 
columns 7 through 72 of an initial line. No other statement in a 
program unit may have an Initial line that appears to be an END 
statement. Mote that a statement nust not contain more than 1320 
char :ict'3r5. Except as part of a logical IF statement {11,5) or a 
logical VIHERE statement (11.15)> no statement may begin on a line 
that contains any part of the previous statement. 

Blank characters pr ecading^ within* or folloi^lng a statement do not 
change the Interpretation of the statements except when they appear 
v/ithin the datum strings of character constantsj* in Hollerith 
constants^ or tha H or apo5jtrophe edit descriptors In FORMAT 
statements. Uowev'jrs blank characters do count as chsracters In the 
limit of total characters allowed in any one statement. 

3.4 SIAIEiiiLlT^L^IiiiU 

StatenKint labels provide a means of referring to individual 
statements. Any statement may be labeled* but only labeled 

executable ;ijtotemants and FORMAT statements may be referred to by 
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the use of statement labels* The form of a statement label is a 
sequence of one to five digits^ ons of nh i ch must be nonzero. The 
statsjTisivt labs! may be placed an^whepe in columns l through 5 of the 
initial line of the statement* The same statement label must not be 
jiYsn to niore than one statement In a program unit. Blanks and 
leadlnj zeros are not significant in distinguishing betv^een 
st at ement 1 abe Is. 

3.!> QaQE£-.a£^SIAI£a£HIS-i^iJD-LILlE5 

A PROGRAM st-itanient may appear only as the first statement of a main 
program. The first statement of a subprogram must be either a 
FUNCTION^ SUBRQUTIME^ or BLOCK DATA statement. 

Within a projrsM unit that pernlts the statejnentss 

(1) FORMAT statements may appear anynhere; 

(2) ?3 1 I specification statements must precede all DATA 
staterientsj MAflELIST statements^ statement function 
statements^ and executable statements; 

(3) ;i ) I st atamsnt function statements must precede all 3xecut?:ib!e 

statenents; 

(4) DATA statements may appear anywhere after the specification 

stataments J 

(5) EMTRY stiiteinents nmy appesr anyiihsre except between a block 
IF statement and its corresponding END IF statement^ between 
a block WHERE statement and its corresponding END WHERE 
stata^ient^ or b»2tw£en a DO staternent and the terminal 
statement of its DO- loop: and 

(6) A lU'U'LIST statement (13.14) may appr.ar anyvihsre after the 
spnc i f i cot I on statements^ but jriust precede any data transfer 
Input/output statement that refers to the NAMELIST group name 
(13.14^ 19.2.12) that is specified by the MAMELIST statement. 

Within the specification statements of a program unlt> IMPLICIT 
statements nust precede all other specification statements except 
PARAMETER statements. Any specification statement that specifies 
tha type of 3 symbolic name of a constant inust precede the PARAMnTER 
statement that defines that particular sycnbollc name of a constant; 
the PARAMETER statement must precede all other statements containing 
the symbolic names of constfints that are defined In the PARAMETER 
statement. 

The last line of a program unit must be an END statement. 
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Figure 1 

Required Order of Statements and Comment Lines 

+ + 

PROGRAM^ FUNCTION^ SUBROUTINE/ or ! 

; BLOCK DATA Statement 5 

+ ^^ + - + 

IMPLICIT } 
Statements ' 



Comment 

L i nes 

and 

CC-di r ec 1 1 ve 

L i n Q s 



FORi^lAT 
and 

ENTRY 

Statements 



PARAHETER 
Statements 



+„ ,^. 

DATA and 
HAMELIST 

St at em '»n t. 



Sped f i cat i on ] 
Statements J 

Statement I 
Function I 

Statements ' 

— «... - + 

Executable { 
Statements { 



+ — 



END Statement 



Figure 1 is a diagram of the required order of stf:tements and 
cornnent lines for a program unitt Vertical lines delineate 
varieties of statements that may be interspersed. For examplej> 
FORMAT statements may be interspersed with statement function 
statements an:] ijxecutabia statamf^ntst Horizontal lines delineate 
verletias of statements that must not be Interspersed* For examples 
statement function statements must not be interspersed with 
executable statements^ Note that an END statement is also an 
-ix ?-cu tab I e statement and must appear only as the last statement of a 
prog rani unit. 

3 . 6 !iQEtlAL»£>;EaiiIIQli-2£2U£Il££_iiiiI}-I£^b!2££S-n£„£QHIEi3L 

liULaal a21fi£Ui:iLiQ Siisusiacs is the execution of executable statements 
in the order in which they appear in a program unit. Execution of 
an ex'^cutahlo pronrani begins with the execution of the first 
exacutabli! stateiTi^Dnt of th^^ main prooram* When an external 
procedure specified in a subprogram is referenced^ execution begins 
with the first executable statement that foHoNs the FUNCTION^ 
SUBROUTIMtji or ENTRY statement that specifies the referenced 
procedure as the name of a procedure* 

A t£aQsf.£L q£ cflQt£ai is an alteration of tha normsl execution 

sa-iuenca. State!7>ents that may cause a transfer of control sres 

(1) GO TCI 
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3.6 NORMAL EXECUTIHM SEQUENCE AND TRANSFER OF CONTROL 

C2) Ar I tJ'iinetic IF 
(3) RHTURM 
(^) STOP 

(5) An jnput/output statement containing an error specifier or 
end-of~file specifier 

(6) CALL Hith an alternf^te return specifier 

(7) A lovjical IF statement containing any of the above forms 
(3) Block IF and ELSE IF . 

(9) Th3 last stateniant^ If anyj of an IF-b!ock or ELSE IF-block 

(10) DO 

(11) ThQ terminal statement of a DO- loop 
(13) END 

The effect of these statements on the execution sequence is 

described in Sections 11^ 13^ and 16» 

Tha normal exscutlon sequence Is not affected by the appearance of 
nonexecutable statements or comment lines between executable 
statements. Exscution of a function refarenco or a CALL statement 
Is not considered a transfer of control In the program unit that 
contains the reference- except when control is returned to a 
statement identified by an alternate return specifier in a CALL 
statement, execution of a RETURN or END statement in a referenced 
procedure^ or execution of a transfer of control within a referenced 
procedure/ is not considered a transfer of control in the program 
unit that contains tha reference. 

In the sxacutlon of an executable program/ a procedure subprogram 
must not be referenced a second time without the prior execution of 
a RETURN or HMD statement in that procoduro. 

3.7 CtrQIEIiniliZES 

A QiriiiL-JGili^S Is a special form of comment line thst affects 
processor behavior. This effect can be suppressed^ and the 
C',*-di r ect I ve treated as a comment line/ by selection of the 
appropriate FGRTRAli control statement option (see host operating 
system reference manual for details), A C.'i~d i rec t i ve Is a jCjsnillii 
di££2iil£t A control di recti vt affects an aspect of the processor's 
I nterpretiit I on of thosa lines follcHlng the directive and preceding 
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3,7 C$~OIRECTIVES 

eit^ier a subsequent dir ect I ve modifying the same sspsct* If such 3 
directive appears^ or the end of the program unit. The aspects of 
interpretation that may be controlled areJ 

(1) listing of the program and associated processor-produced 
I nf ormat i onjf 

(2) specification of program lines to be processed or ignored^ 
(33 character dv^ta compare collation tible^ and 

(4) mini mum trip count for DO- loops. 

Aspect (1) is iis.iiDI2 saotCGi.* aspect (?.) Is £i2DiSiil20ai 

SilOlSil^tioD.* aspect (3) is cfiiialioQ Soni££ij' and aspect C4) Is 

The general form of a control directive is 

C$ ll:2vi:ioi:rl£ {oE=s3 C^£C=S]3« . • ) 3EC>liiJi33 

whore : 

\i^lHSLL^ is one of LIST, IFj ELSE^ Et^!DIFi COLLATE of DO. 
The keyword may begin In any colunin starting with 
column 7, 

E is a parameter. Df:ipendin£j upon ths kfiyword that 
appears^ one or more parameters may be specified. 

£i is an integer constants or symbolic name of an 

integer constants with a value of zero or one. 

Depending upon the parameter qs the constant either 
may or must not appear, 

ial} is a iJi£2£tiv« isJbiii* Dtpending upon the keynord 
that appears^ a directive label may be specified. 
If a directive label appears and no parameters are 
prasontj a comma must separate the keynord and the 
d i r ect I ve I &be \ • 

The letter C in column 1 together with the character S in column 2 
identify ;a Iin5 as a C$-directive line. Such a line will be 
intorPretsd as a comment only if the appropriate FTN control 
statement option is selected. The entire directive must appear on a 
single line, A CS-directive interrupts statement continuations 
unless it is being interpreted as a comment* 

3,7,1 LISIltlG^narHRQi 

A listing control directive has th^ k'synori LIST, It must have the 
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3,7,1 LISTIMG CONTROL 



form: 

C$ LIST (£[=i2lC^aC=i;31... ) 

where: 

a is Sj» 0^ Ri Aj. n or ALL 

a is £ constant or the symbolic name of a constant 

The constant is optional for all parameters; Its absence Is 

oquivalant to the appaarance of s3 constant with the value one, n=0 
disables switch £j b=1 enables switch £• 

ALLr=£3 Is equivalent to S r=n3jOC=i;;l.,R C = fi3^ AC==£3^ MC = cl 

A listing control directive founfi by the processor to be In arror 
results In a diagnostic nesssge* 



The list option switches offer the following control 

S - source lines are listed when en?».bl3di 

- jsnerated object code Is listed for statepTents processed when 
enabled. 

R - symbol references are accumulated for the cross reference list 
Hhen 'jnablsd* Symbols with no accun^ulated references will not 
appear In that listj no accumulation for an entire program 
unit suppresses cross reference listt 

A - the symbol nttrlhutc list is generated If this snitch Is 
enabled Hhen the EMD statement is processed, 

M - the DO loop and common/equivalence map lists are generated if 
this sn'tch Is enabled nhen th^ £MD statement is processed. 



3.7.2 LQNQiIiaMAL>cail£ILAIIQM 

A conditional cof-ip i 1>^ t i on directive has a keyword which Is one of 

IF^ ELSE or EMDIF. Such a directive controls whether the lines 

immediately folloning the directive are to be processed or ignored 

by the processor. 
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3,7. 2 CONDITIONAL COMPILATION 

An lEziJiLSSiiilfc h^s the form: 
C$ IF(£)CCj3iBi23 

VI hare: 

B. is an extended logical constant expression* If a J 
symbolic name of a constant appears^ it must have been ' 
previously defined In a PARAMETER stetamant of the 
proaram unit In vihlch the IF-dlrectlve appears 

iali I s an optional directive label. It must be a symbolic 
name* Its use as a directive label in a conditional 
compilation directive does not affects and is not 
affected by^ its use for any othar purposa in the 
progr am unl t 

An EL^£-d i rect i ve has the form: 

Q'f' ELSEC^i^iil 

where: latl Is as for an IF- directive 

An ENQIE~iii£.fi£l;ivj2 Ubs the form! 
CS ENDIFC^iahl 

whara! i3h is bs for nn IF-directive 

For each IF-dlrectlve there must appear exactly one ENDIF-d i rect i ve 
later in thcj same program unit/ and for each EMDIF-d I recti ve there 
iiust appear exactly one IF-dlrectlve earlier In the same program 
unit. Between an IF-directive and Its corresponding £NDIF-di rect i ve 
vii 1 1 appear zero or more lines called a £i2niliiiaDili-S£Sil£Il££« A 
conditional sequence may optionally contain one ELSE-d i rect I ve 
corresponding to the IF-dlrective and ENoiF-d I r ec t i ve delimiting the 
conditional sequencot An HLSE~d i recti ve iray appear only within a 
conditional sequence. A conditional sequence may not contain more 
than one ELSE~d I rect Iv2 unless it contains another conditional 
sequence. If an HLS E-d i r ect i ve is contained v^ithin more than one 
coniitional sequence/ the ELSE-dl r«ct I ve corresponds to that 
IF~ENDIF pair which deliniits the smallest/ 1 . e. i nner most/ 
conditional sequence containing the EL SE-dl r ect I ve. 

If corresponding IF and EMDIF/ or IF/ ELSE/ EMDIF directives have a 
diractiv?5 label/ it must be the sama directive label. No other 
restriction applies to directive labels on conditional directives. 
Thare is no requirement that any conditional directive have a 
directive l^ibel. Th;:» same directive label niay be used on more than 
one sequence of corresponding cond!tion-\l directives in a single 
program unit/ including the case of conditional directives whose 
conditional si'.qu*3nctJ contains other conditions! directives with the 
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same directive label. 

A conditional s^'S'iu^nce may contain any n'Jfnber of Properly 

cor raspond 1 03 conditional directives^ and therefore other 

conditional sequences. If two conditional sequences contain the 

same line* on*^ conditional sequence must lie ^iholly within the other 
conditional saquance. 

A conditional compilation directive found by the processor to be in 
arror results In a diagnostic joessagG. 



3.7.2,1 £LO£csso£_Coiii;£i2l 

Procsssino of an IF-dlrectlve causes evaluation of the expression £. 

If an IF-dirGctive is processed by the processor and the value of £ 
is true> folloiiinvj lines are processed as if the IF-dlrectlve had 
not appeared^ unless a corresponding E LSE-d i recti ve is encountered. 
In this case^ lines between the ELSE-d i r ect i ve and the corresponding 
EMDIF-di rtict i ve sro Ignored by the processor. If an IF-directive is 
procasssd by the processor and the value of £ Is fslse/ following 
lines are ignored until the corresponding ENDIF-d i rec t i ve as if they 
had not appearadj unless a corresponding BLSE-d i r ect i ve is 
encountered. In this case^ lines between the ELSE~d I rect 1 ve and the 
corresponding ENDlF-d i recti ve are processed. Note that conditional 
directives will be ignored if they appear viithin ignored sequences 
of lines. A line ionored by the processor must be a line acceptable 
to the processor If the line were not ignored. 



3.7.3 CoLLAIIQil^aQLlIEaL 

A collation control directive has the form 

C^ CGLLATE(2) 
where: o is FIXED or USER. 

Tho collation control directive spacifles whether collation of 

character relational e/pr essi onsjr and the values returned by the 

CHAR and ICMAR intrinsic functions^ are directed by the fixed or 
ust^r-sp^c i f i 'lid ij«ijht table (3.1.5). 

A collation control directive directs the interpretation of 
character relational expressions and of CHAR and ICHAR Intrinsic 
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function references in the lines following the directive and 
preceding another collation control directive^ If any^ or the END 
fitatamant of the program unit* In the case of a character 
relational expression or a CHAR or ICHAR intrinsic function 
reference in a statement function statement^ the collation that 
applies is that in effect for the line or lines containing a 
reference to tha statement function. Consider the example: 



PROGRAM P 
LOGICAL LSF 

CHARACTER^:=5^ X> Yf Ss T 
CaLLATE(USER) 
LSFCX^Y) = X,LT,Y 



CS COLLATS(FIXED) 

IF(LSF{S>T)) A=1,0 



END 



The reference LSF(S^T) results in an evalustion of the character 
relational expression S«LT«T with the collation that of the fixed 
weight table. 

A collation control directive found by the processor to be In error 
results in a diagnostic message. 



3,7,4 DOrLODZ-COIillSDi 



A DO-loop control d 1 recti ve has the form 
C.5 00(2i: = £]) 

VI h e r e : 

E i s OT 

2 js 8 constant or the symbol ic name of a constant 

The constant is optionali its absence is equivalent to the 

app-:jprance of b constant with the v^lue one. 

The DO-loop control directive modifies the state of the DUrlanE 
Siiiicia* Th'i svii tch is initial !y set (or rss-^t) when the 
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3,7.4 Da-LOiJP CONTROL 



corrsspondi n^ QNE_TRIP_DO option is (or Is not) requested at 
processor invocation, A DG-loop control directive svUtch selection 
overrides the corresponding OME_TRIP_DO option request. 

The OT parameter controls the mlnimuni trip count. If OT Is sat 
(0T=1)^ the mini jnum trip count for DD-I oops Is one* If OT Is reset 
(OT = 0.)j> the minimum trip count for DO- loops Is zero, 

A DO- 1 OOP control diractivs affects the interpretation of only those 
DQ-loops whose DG-stBtements follow the directive in the same 
program un i t • 

A DO-loop control directive found by tha processor to be in error 
resylts in a diagnostic massage. 
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4,0 DATA TYPES AND CONSTANTS 

Theninetypesofdataare: 

(1) Intecjer 

(2) Real 

(3) Double precision 
(4 ) Comp I '^A 

(5) Lo^ica! 

(6) Character 

( 7 ) Half precision 
( 8 ) B 1 1 

(9) Boolean 

t:«ch type \s different ??nd may have a different internal 
representation. The type may affect the Interpretation of the 
operations involving the datum. 

4.1.1 QAlA-IIEE^QE-A-liAIl^* 

The name employed to identify a datum or a function also identifies 
its d'ita typa. A symbolic name representino a constants variable^ 
arrays or function (except a generic function) rnust have only one 
type for each program unit. Once a particular name is identified 
with a particular type in a program unit^ that type is implied for 
any usage of tha nanic in the program unit that requires a type. 

4.1.2 lY P£_RUL£S_£aR-QAIA-. AMn-£EQC£DUS t-lD£MI£I££S . 

A symbolic nsme that identifies a constants variable^ array* 
externa} function* or statement function may have its type specified 
In a type-statement (8.4) as Integer^ real> double precision* half 
prcicisionj bit* coinplax* logical* Boolean* or character. In the 
absence of an explicit declaration In a type-s tatesnent* the type is 
Implied by the first letter of the name. A first letter of I* J* K* 
L* M* or M implies typa integer ?.n6 any other letter implies type 
real* unless -in IMPLICIT stat^iment (8.5) is used to change the 
default Implied type. 
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4.0 DATA TYPES AND CONSTANTS 

4.1.2 TYPE RULES FOR DATA AND PROCEDURE IDENTIFIERS. 

The data type of an array element name is the same as the type of 
I ts array name. 

Tho data type of 3 function name specifies the type of the datum 
supplied by the function reference I n an expression. 

A symbolic name that identifies a specific intrinsic function In a 
projrani unit has a type ?.s specified In 16*10. An explicit 
type-statement is not required; however^ it is permitted. A generic 
function name does not have a predetermined typej the result of a 
generic function ref«ronce assumes a typo that depends on the type 
of the arguments as specified In 16.10. If a generic function name 
appears in a type-statement^ such an appearance is no t suf f i c i en t by 
itself to remove the generic properties from that function. 

In 3 projrani unit that contains an external function reference^ the 
type of the function is determined in the same manner as for 
variables and arrays* 

Tha type of an external function !s specified implicitly by Its 
nameji explicitly In a FUNCTION statement^ or explicitly in a 
type-statement. Mote that an IMPLICIT statement viithin a function 
subprojram may affect the type of the eKterncI function specified in 
the subprograjn. 

A symbolic name that identifies a main program^ subroutine* common 
block J or block data subprogram has no data type. 

4.1.3 DAIA-IY££^£E0££EIIES. 

The mathematical and representation properties for 3sch of the dsta 
types are specified In the foil owl no sections. For realj» double 
precision/ half precision^ and integer data.. the value zero is 
considered neither positive nor negative. The value of a signed 
zero is th*2 same as the value of an unslgnsd zero. 

4.2 CQLlSIAtilS 

A CQnsiaoi; is an arithmetic constants logical constants bit 

constantj* Boolean constants or character constant. The value of a 

constant does not change. Within an executable program* all 

constants that have the same form h^ve tha same value. 

4.2.1 HAIA-IYEE^QE^A-CaLlSIAfcll- 

The form of the strlnj representing a constant specifies both Its 
valua and data type. A PARAMETER statement (8.6) allcws a constant 
to be given a symbolic name. The symbolic name of a constant must 
not be used to form part of another constant. 
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4.2.2 BLAiiKS-IM-.CDMSIi^UIS* 

Blank characters occurring In a constants except in a character 
constv^nt or a Hollerith constants have no effect on the value of the 
constants 

4.2.3 AEIIUdEIIH-ilDBSIMIS* 

Integer^ real^ double precisions half precision* and complex 
coni^tants are aLlthB^tlo., £i2D£iaQ±£x 

4.2.3.1 sinas-flf^Cflasianisx 

An iiQS.iaQ2il iiiiQSiant Is a constant without a leading sign. A slxjQ^iJ 
£l£IlsiaQ£ is a constant with n leading plus or fninus sign. An 
ii£ti£iQaii^ siaaEfl CIiQitilQl; is g constant that nay be either signed 
or unsigned. Integer* real* double precision* and half precision 
constants may ba optionally signed constants* except vdiere specified 
1 h e r VI i s e . 

4.3 IHII;££a^II££ 

An integer datum is a 1 nays an ex set representation of an integer 

value- It may assume a positive* negative* or zero value. It may 

assume only an Integral value. An integer datum has one numeric 
storage unit in s storage sequence. 

4.3.1 ItiI£Q£E_aOMSIAtlI. 

The form of an inisafiL SUDStaoi is an optional sign followed by a 
nonempty string of digits. The digit string is interpreted as a 
decimal number • 

4.4 EEAk-IlEI^ 

A real datum is a processor approximation to the value of a real 
number. It may assume a positive* negative.* or zero value. A real 

daturn nps one numeric storage unit In a storage sequence. 

4.4.1 B&Sld^RiAL.CDLlilAMI. 

Thii form of <\ tiaaiia Liaai £aQSl2Qi is an optional sign* an Integer 
part* a decimal point/ and a fractional part* In that order. Both 
the intejar part snd the fractional part are strings of digitsi 
either of these parts may ba oniltted but not both. A basic real 
constant may be vjritten with more digits than a processor will use 
to approximate the value of the constant. A basic real constant Is 
Interpreted as a decimal number. 
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4.4.2 REAL EXPOMHMT. 

4.4.2 SEAL-.EK£aii£b!I. 

The form of a ££ai a^SSQneni is the letter E followed by an 
optionally sijned Intajer constant. A real ej^ponent denotes a po^'er 

^ t a n . . . . 

4.4.3 EEAL-aDli^IAtil. 

The forms of a Liiiii cQasiiacl: are! 

(1) Basic real constant 

(2) Basic rsal constant followed by a resl exponent 

(3) Intejer constant followed by a real exponent 

The value of a real constant that contains a real exponent is the 
product of the constant that prr^cede^ the E and tha poner of tan 
indlcfitsd by the Integer following the E. The Integer constant part 
of form (3) may be virltten with more digits than a processor will 
use to approximate the value of the constant* 

4.5 QQiJiiLE_£E£CISIQH^IYP£ 

A double precision datum is a processor approximation to the value 
of a real number. The opeclslon^ although not specif ied> must be 
greater than that of type real. A double precision datum may assume 
a positive* negative^ or zero value. A double precision datum has 
two consecutive numeric storage units In a storage sequence* 

4 . 5 • 1 nau BLE_£E££ISIQI:l-£X£i]tl£MI . 

The form of a ilnuhiii aLfii:i5iDQ i^iiaaDSDl is the letter D follOKCd by 
an optionally signed integer constant. A double precision exponent 
denotes a povier of ten. Note that the form and interpretation of a 
loublD precision exponent are identical to those of a real exponents 
except that the letter D Is used Instead of the letter E. 

4.5.2 QaLinLi:_EE£fIiaiIlH-£aM5IMI. 

The forms of a ijauiaiii iiCiicisiiiQ xiQastant are: 

(1) Basic real constant followed by a double precision exponent 

(2) Integer constant folloned by s double pr ads ion exponent 

The value of a double precision constant is the product of the 
constant that precedes the D and the pouer of ten indicated by the 
integer follovjlns the D. The Integer constant part of form (2) may 
be viritten viith more digits than a pro cesser hI I I use to approximate 
the value of the constant. 
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4.6 £QMLE^-.IY££ 

A complex datum Is a processor approximation to the value of a 
complex number. The representation of a complex datum is in the 
form of an ordered pair of real data. The first of the pair 
ropresenrs the real part of the complex datum and the second 
represents the Imajlnary part. Each part lias the ssine degree of 
approximation as for a real datum. A complex datum has two 
consecutive numeric storage units in a storago sequence^ the first 
storaga unit Is the raal part and tha second storage unit is the 
1 niag j nary par t. 

4.6.1 CLn?iPL£}^«CQ£iSIAtiI 

The form of a cuniaisii aQQSiant Is a left parenthesis followed by an 
ordered pair of real or integer constantsj> or symbolic names of real 
or integer constants^ s<H'«rated by a commit and followtid by a right 
parenthesis. The first constants or synboMc name of a constants of 
the pair is the real part of the complex constant and the second is 
theimaginarypart. 

4.7 LOOKAL^naE 

A logical datum may assume only the values true or false. A logical 

datum has one numeric storage unit in a storage sequence. 

4.7.1 LDdiaAL-CQtiSIAMI. 

The forms and values of a li2£li£:£ll SnUsiBDi aru: 

+-.- + + 

I Form I Value \ 

+ • _ + 

! .TRUE. I tru« I 

\ .FALSE. ] false ! 

+ . + --.+ 

4.0 CUAaA£I^£^II£E 

A character datum is a string of characters. The string may consist 
of any characters capable of r eprrsent 3ti on In thn processor. The 
blank character is valid and significant In a character datum* The 
iefluiil oP a character datum is the number of characters in the 
string, A character datum has on-3 character storage unit In a 
storage sequence ?or each chsracter in the string* The maximum 
number of characters in a character datum is ^'?^'!'-16-l (2**16-1 = 
65J.335), 

Hach characti^r in the string has a character position that Is 
numbered consecutively Ij Z* 3^ etc. The number indicates the 
sequential position of a character in the string^ beginning at the 
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4.8 CHARACTER TYPE 

left and proceeding to the right. 

4.8,1 ciiAa^cina-CQiisiMi. 

The form of a nhaLactfiL nQnsiaQi is an apostrophe followed by a 
nonempty string of characters foil owed by an apostrophe. The string 
may consist of any ch?iracters capable of representation In the 
processor. Mote that the delimiting apostrophes are not part of the 
datum represented by the constant. An apostrophe within the datum 
string is represented by ti/o consacutlve apostrophes with no 
intervening blanks. In a character constant* blanks . embedded 
between the delimiting apostrophes are significant. 

Thfj length of a character constant Is the number of characters 

between the delimiting apostrophes^ except that each pair of 

consecutive apostrophes counts as a single character. The 

delimiting apostrophes are not counted. The length of a character 
constant nust be graater than z^ro. 

4.9 BQnL£A!i«II££ 

A Boolean detuiii is a string of n bits,* whare o |s the number of bit 
positions belonging to one numeric storage unit. A Boolean datum 
has one numeric storage unit. 



4.9.1 iinQL£A!J-IlQii32IAblI 

A B2£lili3D-££>£is.i2Di Is a Holf'?rith constants an octal constant^ or a 
hexadecimal constant. 



4.9.1.1 tdQiisLiih.CnostaDt 

A lJi2iii2Lii;b-.£!ilDat2Qj; has one of four forms! 
nHf 

LM£tt 

R"f " 
It {=11 

where : 

a is an unsignedji nonzero^ integer constant not greater 
than 2^ where a is the max imum number of characters that 
can be rapresented by the processor in one numeric 
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4.9.1.1 HoHaritb Constant 

storageunit. 

f is £ string of q characters. The string may consist of 
any characters capable of representation in the 
processor. Blanks in a Hollerith constant are 
s i ^ni f icant on! y in i:hi s str i ng. 

The datum rej:'re3ented by a Hollerith constant is determined by the 
internal processor code for the characters in the string X and the 
form of fill indicatecl by the form of the constant. By fill is 
meant the string of bit values supplied by the processor either to 
th3 left or right of f^ if any is required^ to complete the datum. 
The datum is complete vjhen all its bits are determined. 

For the QHf and "f^* forms^ the string £ is left-Justified in the 
dp.tum and the fill Is a string of bit values constituting the 
internal processor code for a string of blank characters. 

For the L"f" form^ the string f is I ef t~ just i f i sd In the detum and 
the fill is a string of bit values. 

For the R"f" form.-* the string £ is ri gh t- jus t i f i ed in the datum and 
the fill is a string of bit values. 

The character " within "f" Is represented by a string of two 
consecutive " char acter s w i thi n £ • 



4.9.1.2 Qniai.^OQsiBDJ: 

An ilGlai-liQQSiaDi has the ^orms 

vihara: h Is an octal dijit. 

The datum represented by an octal constant Is the string of bit 
values obtained by mapping each octal digit into Its equivalent 
three-digit binary number system value., right-justified with a fill 
which is a string of bit values. The number of bit values in the 
resulting string must not be greater than the number of bit 
positiuns in ono numeric storage unit. Note that a blank character 
is not significant anywhere within an octal constant. 
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4.9.1,3 Haxadacimal Constant 

A h2xail££ioiai_££iQst;ani lias the form: 

vihere:/^ Is a hexadecimal digit. 

The datum represented by a hexadec i^na! constant Is the string of bit 
values obtained by mapping eacii hexadecimal digit Into its 
equivalent four-dlglt binary number systam Yalue> right-justified 
with a fill vihlsh Is a string of bit values. The number of bit 
values In the resulting string must not be greater than the number 
of bit positions in one numeric storage unit. Mote that a blank 
oharscter is not significant TnyfA'hero iiithin a hexadecimal constant. 

4.10 hlALE_RE£ai2iaii-II££ 

A hal f pr^ci s I on datum Is a processor approximation to the velue of 
a real number. A h^lf precision datum may assume a positives 
negative^ or zero value. A half precision datum has one- half of a 
numeric storage unit in a storage sequence. 



4.10.1 aALE_EB££ISIDI:3-EX£aH£LlI 

Th2 form of a biJil £C.£aisi2a i2iia£Di2nl is tha Isttc^r S follov-^sd by an 
optionally signed Integer constant. A half precision exponent 
denotes a power of ten. Note that the form and interpretation of a 
half precision exponent are iientlcal to those of a real exponents 
or double precision exponent/ except that the letter S Is used 
Instead of the letter Ef or D. 



4.10.2 liAL£-.£E£ClSIO^-CQLlSIAt:!I 

The forms of a jaaif D£ecisiflD £2DSi2iQi are: 

(1) basic real constant foHowed by a half precision exponent 

(2) integer constant fol levied by a half precision exponent 

The valua of a half precision constant Is the product of the 
constant that precedes the S anfl the power of ten indicated by the 
integer following the S. The integer part of form (2) may be 
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4,10.2 HALF PRECISI'lM COilSTAflT 

viritten with more digits than a processor will use to approximate 
the value of the constant, 

4,11 ail-IXEE 

I 
% 

A bit datum may assume only the vnluas B"0" and B"l", A bit datum 1 

hns one bit storaga unit in a storage sequence, J 

4,11,1 ail-QQMSIAtil 

I 

The forms of a bit constant are B"0" and B"l", Note that a blank ,' 
character is not significant anynhere within a bit constant. 
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5,0 ARRAYS AND SUBSTRIMGS 

An 3LL3:i is a (possibly empty) sequence of data. An 2iLL21 SiefflSDi 
is one member of the ssqu^snce of data. An aLIia^ DBEil Is the 
symbolic n^me of an array. An a£L5>i £i§D3I-Di DSDIS 's an array name 
c] u all f I e d by a subscript (5.4). 

An array name not qualified by a subscript identifies the entire 
sequence of elements of the array in certain forms Hhera such use Is 
parmitt^d {5.9)3 howsver^ in an EQUIVALSMCE statements an array name 
not qualified by a subscript Identifies the first element of the 
array (8.2.4) . 

An array element name Identifies one element of the sequence. The 
subscript value (Table 1) specifies the element of the array being 
identified. A different array element may be identified by changing 
the subscript valus of the array element name. 

An array naf.ie is local to 2 program unit (19.1.2). 

A 5Llhst£lQC] is a contiguous portion of a character datum. 

5.1 ARRAYS-AHQ.AEaAY_^££IIIi]L12 

5.1.1 ASEAI«iiAiJE-AyD-AEEAI^S£aiiniii«[?E££a£!Ja£ 

Hhenever an array name^ unqualified by a subscripts or an array 
section name Is used to designate the whole arrsys or an arrsy 
sections the appear mce of tha array name or array section name 
implies that the number of values to be processed is equal to the 
number of elements in the array or array section and that the 
<ilonients of the array or array section are to ba processed In 
sequential orders except in the evaluation of array expressions and 
in array assignment statements. 

An assumed size arr^iy msy not be used in an array reference. An 
assumed size, array s 'Action reference nay not be used in an array 
reference if a section selector of * or -* is used in the last 
subscript position. 

5.2 AEEAI^QilCLAEAIOE 

An £^LL£^1 dS£iil£aill£ specifies a symbolic name that identifies an 

^rr ly Hithin a program unit and specifies certain properties of the 

■array. Only one array declarator for an array name is permitted in 
a program unit. 
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5,2.1 FQRH OF AM ARRAY DECLARATOR 

5.2,1 £aEM-n£_A[4_AaEAY^I}£CLAEAinE 

The form of an array doclarator \s' 

2 J jd C ^ ll 3 • • • ) 

Hhere! a . is ths symbolic name of the array 

fj is a dimension declarator 

Tha numbar of dimensions of the array Is the number of dimension 
declarators In the arr ay dec I arat or . The minimum number of 
dimensions is one and the maximum is seven. 

5.2.1,1 £ o£:oi-a£-.i:-Qil2EaiaiGQ-.I2i2«2i2i:ataL 

The form of a^iflaQ^iiiQ il£i:i^£3tQ£ is one of the forms: 

Ciim d2 
Cllll: 

iihsrai HI i s the- loner dimension bound 

d2 is the upper dimension bound 

The lower and uppar dimension bounds are arithmetic or Boolean 
scalar expressions/ called dilD^DSiQB is^uoij e>(£>r esslcjQ^^ in which 
each primjry is a constant/ symbolic nan-e of constants/ dummy 
arjumcnt nanie of a variable or array/ or any Intrinsic function 
reference vjhich is allowed in an extended integer constant 
expression. A dimension bound expression must be scalar and of 
integer type. An actual argument to an intrinsic function reference 
in a dimension bound expression may be any entity that is allowed in 
an extended constant expression or that is allowed in a dimension 
bound expression for an adjustable array declarator. The upper 
dlnenslon bound of the last dlrnension must be an asterisk In an 
assumed-size array declarator. A dimension bound expression must 
not contain a nonintrlnsic function or array element reference. 
Variables may appear In dimension bound express ions only In 
adjustable array declarators and as actual arguments to intrinsic 
function references. Array names may appear in dimension bound 
fjxpresslons only ■\s actual arguments to intrinsic function 
r ef erences . 

In a dimension bound expression/ the symbolic name of a constant^ a 
vgrlabl*^^ or an ^rray must be explicitly typed prior to its 
Appearance In the dimension bound e);presslon. if It Is not 
explicitly typed prior to its appearance in the dimension bouncd 
expression/ it will be typed using its initial letter and the 
default implied type rii 1 os then in effect. If an entity in a 
dimension bound -expression is typed by implied typing/ any 
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5«2fl«l Form of a Dimension Declarator 

.subsequent e>:p!jcit typing must confirm the iroplied type. 

Mo array nanie appearing in an array declarator in a specification 
statement may be referenced in a primary of any axpressjon vnthin 
the sanie specification statement. For ex ampler 

RSAL AdO^EXTENTC A^l) ) 

i s p r h i b i t e d t 

5.2.1.2 \iaiUiil-.af _l}ia£QS.iilD_fiflUQd£ 

If a dimension bound di is a Boolean express ion> the value used is 
INT<rii)« Ths value of either dimension bound may be posltlva^ 
negative/ or zero. If only the upper dimension bound is specified^ 
th'j YaluD of the loner dimension bound is one* If the dimension 
declarator is of the form Cdl^' and the lower dimension bound Is 
omitted^ its value is one. An upper dimension bound of an asterisk 
Is aliiays greater than or equal to the lower dimension bound. 

5.2.2 KIiiDS_ALin_QC(:UEH£H££.S_D£-ARaAY_QECUEMIIE5 

Each array diclarator Is either a constant array declsrator^ an 
adjustablG arr ay dec! ar ator/ an assumed size array declarator/ or an 
assumed-shape array declarator. A £0Qs,i2JDi SILai' dSSiJiaifil is an 
array declarator in which each of the dimension bound expressions Is 
an integer constant expression (6.1.3.1). An adJilSi2t}l£ a££-ay 
llQQ.lQL^tQ.L is an array declarator that contains one or more 
variables. An iJSSUaiili-siZfi ii£££v dQ.Sll3LatQL Is a nniilOlDiiise 
£J55Ulili?ii=Si2e ^LL21 decia£ai2£ or a £0viviiS£ aSSUfflSdzSiiS 5££BY 

il^aiaLsitnL' A Giiiuaaiiiss BSEUiiiad-sizs £i££ai d^QlaLatsiL \s a 
constant array declarator or an adjustable array declarator/ except 
that ths uppur dimension bound of the last dimension is an asterlsi<. 
A £iliiHiS£i ilSiill£i]iidz^l2« 3LLdi'J. lleoi an^^oii is a constant array 
declarator or ad adjustable array declarator/ except that the uppor 
dlnenslon bound of the first dimension Is an aster isk# An 
i3£Sii!3!iLd-sha2<i a££a^ llSLQ.l3L2lSLL 's a constant array declarator or an 
adjustable array declarBtor/ except that one or more of the 
dlitiension decJarfttors has a spec If I cat on of the upper bound omitted. 

!:ach array declarator is either an actual ar r ay dec I arat or/ a dummy 
array declarator/ or an al I ocatabl e ar r ay declarator. 

5.2.2.1 AntU>li-A££iii:-.Qecia£ain]: 

An aaiuai ILLB^ di2£i££ati2£ Is an array declfirator in which the array 
name is not a dummy argument. Each actual array dec I ara tor must be 
a constant array declarator. An actual array declarator Is 

permitted in a DII1HHSI0N statement/ a type-statement/ or a COHflQH 
staternant (Section S)., 
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3»2.2.2 Dummy Array Declarator 

5, 2. 2.2 Qli!Iia^-4LLa^-.Q^aiilL3tl2i: 

A (lUBmi ^LLsM ll«i2ii3Lai;o£ is an array declarator In yhioh the array 
name Is a duiiMy arjument or is the name of the srrsy-valued function 
in which the array is being declared. A dummy array declarator may 
be a constant array decl arstor^ ^n adjustsble array declarator^ an 
assumad-shape array declarator^ or an assumed-size array declarator* 
A dummy array declarator is permitted in. a DIMl-NSIQN statement or a 
type-statement but not in a COMHOM statement. A dummy array 
laclarator may rippaar only in a function or subroutine subprogram. 

5.2.2.3 AiiQC?ilBl}ie_ArL£^»Qe£iE£iLin£ 

An aiiaCiiiBtiiS £,LLB,:l iisaiatiitQL is an array declarator In which the 
array name Is not a dummy argument. An allocatable array declarator 
must be an assumed-shape array declarator with both upper and lover 
difnansion bounds omitted for every dimension. 

5.3 Eaa££EIIE2-Q£-.AH-MRAI 

The follovnno properties of an array are specified by the array 
declarator J the number ^f dlrrenslons of the arrays the size and 
bounds of each dimension^ and therefore the number of array 
elements. 

Tha propertiss of an array in a proQr^w unit are specified by the 
array declarator for the array In that program unit. 

5.3.1 DAIA-IIEE-DE^Abl-AaSAI-Abia-Aii-AaaAI-fiLEMEHI 

An array narie has a data type (4.1.1). An array element name has 
the same data type as the array name. 

5.3.2 Qia£tlSIQtlS-.QE-.Aii-MaAI 

The number of dimensions of an array is equal to the number of 
d i mens i on dec 1 er ators in the array declarator. 

The 2.1Z2 nl 3 JJiiLsfiQ^lisn is the value: 

MAX(£l2-dl+1^0) 

HhereJ dl Is the value of the lower dimension bound 

£[2 is the value of the uppsr dimension bound 

Not a that If the vulue of the lower dimension bound is one^ the size 
of the dimension is MAX(<i2^0). 

The size of a dimension whose upper bound Is an aster isf< is not 
specified. The size of a dimension of an assumed-shape array for 
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rihlch the dimension bound expression is of the form Ciills is 
riAX{sa"*£ll~l.' 0) whara ss is the size of the corresponding dimension 
of the associated actual argument. 

The number and size of dimensions in ono array decJsrator may be 
different from the number and size of diirensions in another array 
declarator that is associated by common^ equivalence^ or argument 
association^ except as prohibited by the table in section 8.2.3 and 
by section 16,9.3.3. 

5.3,3 SIIE-nF^AU-ASSM 

The siza fi£ an a£LaX is equal to the number of elements in the 
array. The siza of an array Is equal to the product of the sizes of 
the dimensions specified by the array declarator for that array 
name. The size of an assumed-s i zs dumm7 array (5.8) is determined 
as f I I OHS J 

(1) If tha actual argument corresponding to the dummy array is a 
noncharacter array name^ the size of the dummy array is the 
size of the actual argument array. 

(2) If the actual argument corresponding to the dummy array name 
is a noncharacter array element name viith a subscript value 
of £ in an array of size^^ the size of the dummy array is £ 
+ 1 - X. 

(3) If th^ actual argument is s character «5rr?iy name^ character 
array element name^ or character array element substring name 
and begins at character storage unit i of an array vn'th £ 
character storaje unlts^ than the size of the dummy array Is 
INT{(i:. + 1-1) / in)/ vihere in is the length of an element 
of the dummy cir ray. 

If a colunnvjlse assumed-size dummy array has n dimensions^ the 
product of the sizes of the first q-1 dimensions must be less than 
or equal to the size of the array* as determined by one of the 
immediately preceding rules. If a roviviise assumed-size dummy array 
has Q dimensions* the product of the sizes of the last jd-1 
dimensions must be less than or equal to the size of the arrays as 
determined by one of the immediately preceding rules. 

The size o^' an allocatabia array Is specified by an ALLOCATE 
statement, 

5.3,^ ASSi\I_i:L£Ll£lilI-,DEQ^SI!:l£ 

Tha ?lemants of an array are ordered in a sequence (2.1). An array 
element name contains a subscript (5.5.1) whose subscript value 
(5.5.3) determines j-ihich element of the array is identified by tha 
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array element name. The first element of the array has a subscript 

valiia of onaj the second alemant has a subscript value of tHoj ths 
last element has a subscript value equal to the sfza of the array. 

Whenever an array name unqualified by a subscript is used to 
designate the whola array (5.9)^ tha appearance of the array name 
inipltes that the number of values to be processed Is equal to the 
number of elements In the array and that the elements of the array 
are to be taken in sequential order except in the evaluation of 
array e'^pr^isslonsj In array aFsignmant statements^ and in FQRALL 
statements. 

3.3.5 AaEiiI»SIQEAfi£-.S£Oii£bl££ 

An array has a storf^ge sequence consisting) of the storage sequences 
of the array elements in the order determined by the array element 
ordering. The number of storage units in an array is }(,tzs vjhere ^ 
is tha nufnber of the alements in the arr«y and 2 Is the number of 
storageunits for each arrayelement. 



5.4 ASRA:t:-.i-LEli£LlI.U 
The form of an array element name is: 

B ( £ C J 2 1 • • • ) 

v^»here: 2 is the array name 

(2 C^ii3...) Is a subscript (5.5.1) 

S is a subscript expression (5.5.2) 

Th'2 nurnbar of subscript expressions must ba equal to the number of 
dirienslons In the array declarator for the array name, 

5.5 SUBSCBIEI 

The form of a SLiiiSCLisi; is: 

( js r .f ^ 3 • . . ) 

where ^ is a subscript expression. 

Note that tht' term "subscript" Includes the parentheses that delimit 
the list of subscript expressions. 
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5.5.2 SUBSCRIPT EXPRESSION 

5.5.2 suasaEi£i-£^£S£S£iaM 

A iiyLiSSEiEi: ilXELSS-S-lllQ is an Integer/ real.-^ double precis I on> half 
precision. complex^ or Boolean scalar expression. A subscript 
axprssslon nriy contain array element references and function 
references. Note that a restriction In the evaluation of 
expressions (6.6) prohibits certain side effects. In particular^ 
aval unt ion of a function must not alter the value of any other 
subscript expression within the same subscript* 

Within a program un i t^ the value of each subscript expression must 
be greater than or equal to the corresponding loner dimension bound 
In the array declarator for the array. The value of each subscript 
expression must not exceed the corresponding upper dimension bound 
declared for the array in the program unit. If the upper dimension 
bound is an asterisks the valuf- of the corresponding subscript 
expression riust be such that the subscript value does not exceed the 
size of the dummy array. If an upper dimension bound is omitted in 
an assumed-shape array/ the value of the corresponding subscript 
expression si must be such that 

^i £ d\ + sa - 1 

Hivire ill IS the loner dimension bound of the dlnenslon where the 

subscript is written and s.2 is the size of the corresponding 

dliiiension of the actual argument ?>ssociatsd with the assumsd-shape 

arr ay . 

The value of each subscript expression of an allocatable array must 
be greater thsn or equal to the corresponding loiier dimension bound 
established by the execution of the ALLOCATE statement. The value 
of each subscript expression of an allocatable array must not exceed 
the corresponding upper dimension bound established by the execution 
of the ALLOCATE statement. 

5.5.3 SUaS£ai£I- VALUE 

The sytisSLiai ^aiJJfi of a subscript is specified in Table 1. The 
subscript Vdlue determines which array element Is identified by the 
array element name. Vllthin a program unit/ the subscript value 
depends on the values of the subscript expressions in the subscript/ 
th^;j dimensions of the sir ray spec I f 1 ed In the array declarator for 
the array in the program unit/ and whether the array Is a columnwise 
array or a rowwise array (see 8.10). If the subscript value is £/ 
thvi Lth elv^mont of the array is Identified. 



COMTRQL DATA PRIVATE 



Control Dnt?i Corporation Stsndard PORTRAIT 



5-8 
83/06/30 



5.0 ARRAYS AMD SUBSTRIMGS 
5,5.3 SUBSCRIPT VALUH 



Subscr Ipt Va lue 
For Columnwise Array 



+ — «.^ 

1 n ' 
t 


Diiiiension 1 Subscript 
Doc! ar ator J ' 


[. — . .^ — 

Subscr i pt 
Val ue 


1 

{ 1 , 

1 
1 


(Ji:kl) i (si) 


l+(sl-Jl) 


1 1 
1 

1 2 

1 

t 1 

1 
1 


(Jlskl^ J2:k2) ! (sl,s2) 


!l+(sl-Jl) 
+ (s2-j2)'!'>dl 


1 

1 

I 3 ' 

1 1 

J 
1 
1 
1 


( jl:kl5 J2:k2j» J3:k3) ! (sl,s2xs3) 


l+{sl-jl) 

+(s2-j2)*dl 
, +{s3-j3)*d2*dl 


1 
1 
t 
1 t 

t 
1 • 

t 
1 t 

1 


t 1 t 


• 
• 
• 


t 

i Q 

1 

I 1 

1 
1 
1 

i 

1 

1 
1 
1 
t 

1 


( jl: kl^ « . #.♦ JD' kn) 1 { slf . . . ^so) 


l+{sl-Jl) 
! +{s2-J2)*dl 
+(s3-j3)*d2*dl 
+ .. . 

+(SD-JD)*dD=l 
^•di3r:2*,.,-dl 



+ +. 
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Table l (contl nued) 

Subscr i p t Va lu e 

For Rowwise Arra^' 



-f. + , , ^ ^«+>, ^»,-.>. — 4. ^ — - — 

J n ! Dii^ension ) Subscript t Subscript 

1 1 Declarator I 1 Value 

+-. — 4. . . , + ^. + , 

i 1 1 {jl:kl) ] (si) Jl+{sl-jl) 


! 2 ; ( jl:klj> J2:K2) { (sli,s2) I l + (sl-jl) *d2 
! ! ! ! +(s2--j2) 


I 3 I ( jl:kl.. J2;k2/ j3:k3} 1 (sl.s2,s3);i+<sl-jl)'5^d2*d3 
1 1 \ I +(s2"-J2)*d3 
I ! ! 1 +(s3-j3) 


1 « 1 • • • 1 • 
t • 1 • 1*1 • 


1 Cl i { jUklj. .. ..♦ JaikD) 1 ( sl^ . . . ^so ) il + < si- jl)*d2 
I 1 I ' *d3^'..,*dn 
I J ; ! +{s2-j2)*d3 

! ; ; ; + • • . 

! ! I I +(sDrl-JDrl)*dQ 
\ \ \ \ +(sD~Jn) 



+ + ^ 4.-^ + 4. 

Notes for Tab 1 e 1 : 

(1) n is the numbs r of dimensions^ 1 <^ n ^ 7 

(2) ji is the value of the lower bound of the 1 th dimension 

(3) ki is the value of the upper bound of the ith diinenslon 
{^) If only the upper bound is specified^ then Ji = 1 

(5) si is the integer value of the ith subscript expression 
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(6) df = ki-jl+1 is the size of the i th dimension. If the value 
f t h e I o w e r b ou n d i s 1^ t h e n d i = k i 

siota that for arrays that do not have size zero a subscript of the 
forn (jl^«.«^jn) has a subscript value of one and identifies the 
first element of the array. A subscript of the form (kl^*.«^kn) 
identifies the last elomt^nt of the array; its subscript value is 
e.qual to the number of elements in the arrray- 

The subscript value and the subscript expression value are not 
necessarily the same^ even for a one-d i n^ens i ona! arr&y. In the 

axample: 

0IM5NSIDN A{-l:0)jB(10'»lO) 
A(2) = 3(1,2) 

A{2) idantifles tho fourth element of A^ the subscript Is (2) with a 
subscript value of four> and the subscript expression is 2 with a 
value of tvio. B{1.»2) identifies th a eleventh element of B^ the 
5:;ubscript is {1>2) nlth a subscript value of eleven, and the 
subscript expressions are 1 and 2 vii th values of one and two. 

The form of an array section na^ne Is J 

a^SSC^Ss] . • . ) 
viher 2 ! 

a I s the ar ray name 

(SiaCSi^l^ • • ) Is a Section subscript 

SS is a Section subscript designator 

Tha number of section subscript deslonators must be equal to the 
nuiiber of dimensions in the array declarator for the array name. 

5.6.1 SEHIIQH^SySSCEm 

5 • 6 . 1 . 1 Enca^nf _a-S£i£:iiQa-Syhs£Lii2i: 

The form of a SfiSiiflD syhScLiEi is: 

vihere ss Is a section subscript designator. At le;?st one of the j££ 
fjust be a section s alec tor. 

Mote that the term s^ctioD syhS££i2t includes the parentheses that 
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5«6»1«1 Form of a Saction Subscript 

fieljniit the list of subscr 1 pt express! ons . 

A sestlQQ siii}S.£i:i£i a>l£££SSiiaa is s subscript expression or a 
section selector. A s.liStiiiD aal£C.tfiL is an Indexed section selector 
or a vector-valued section selector. An iQc|eji£rj S££ili2D 52i£fil2j: is 

of che for nil 

CSSI] Jn£s2K:5S3] 

viher*:i £S i^ a subscript expression. A iiSniLOLriiiiusiJ Sfictifln 
ii£i££tnL is a one-dimensional Integer array expression. 

It* ^sl is oriltted.'f then the value of the corresponding lower 
dimension bound is implied for ssl • If ^j2 is omitted^ then the 
vaiue of the cor raspond ing upper dimension bound Is Implied for £s2. 
If ss3 is omitted^ then the value of one is implied for ss3. 

5.7 ASE^I-Su£Ilfll:l 

An 2.LLiil SS£lixiQ is a subsequence of an array. The number of 
'I i nums I ons of the array section is equal to the number of. section 
selectors. 

If an array is rovivfise (col umni-^i se )^ then any section thereof is 
also considorad to be roviviist^ (co I umnvf ise ) • 

Each section selector identifies elenients for the dimension position 
where it is written. The order of dimensions in an array section is 
determined from I >"?f t to rijht by the appearance of section 

selectors* For exanple^ 

A(*/2^^n 

is an nrray section viith tno dimensions. Tha first dimension 
«::or responds to the first dimension of A and the second dimension 
corresponds to the third dimension of A. 

The total number of elomants idontifi'id is given by th'i value of the 

e X p r e .3 s I n 

MAX ( IMT ( ( S52-2S1+5S3 ) /ss3 ) ^ ) 

If the total number of elements is positive then the section 
selector identifies the elements from ssl to ss2 in increments of 
ss3 and each element must lie vMthin the bounds of the array being 
sectioned. The size of (?, dimension of an array section Is equal to 
the number of elements identified in that dimension. The size of an 
array section is equal to the product of thp. sizes of the diiTiensions 
of the ?^rray section. In usages where an ordering of elements of an 
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arriy scjction is Implied/ for t^i^^mplQf in an output list* it is as 

if the array section Is formed and a nevi temporary array created and 

the array elements of the temporary array are used in order of 
subscript value {5 #5. 3). 

A V3ctor-v al uad sactlon selector Identifies a section formed by 
selecting the elements identified by the values of the elements of 
the one d i mens i ona I arr ay used as a section selectoft The values of 
iilomants of the one dimensional srray used as a section selector 
('lust not select elements outside the bounds of the array being 
sect i oned. 

Uhan a vec tor~Ya I u ad section Is ussd/ the number of elements In the 
resulting section along the dimension selected by the vector -valued 
expression is determined by and is equal to the number of elements 
In th6 yector-valuiJd expression* 

An array rafsrenca involving vector-valued subscripts^ when used as 
an actual argument is an expression and may not be defined viithin 

the subprogram. 

For example^ suppose 2 Is a tvio dimensional array of 5 by 7 elements 
and U and V are one dimensional arrays of 3 and 4 elements^ 
r espect i V a iy • Assume the-, values of U and V are! 

U = 1 3 2 
V = 2 1 1 3 

then Z(3/V) consists of the elements of the third row of Z in the 
order? 

Z(3j2)Z{3j»l)Z(3^1)Z(3;.3) 
and Z(U^2) consists of the column elumontiSJ 

Z(1..2)Z(3^2)Z(2>2) 

and finally Z(UjV) consists of the elements: 

Z(1^2)Z(l^l)Za.l)Z(1^3) 
Z(3^2)Z(3/l)2{3jl)Z(3>3) 
Z{2^2)Z(2/1)Z{2^1)Z{2,3) 

!5,B Qyiilll^AIin^ACiyAL-ARSAlS 

A diiEmji B£La^ is an array for which the array declarator is a dummy 
array declarator. An isssuaisdriiizs. Illimey iiixav Is a dummy array for 
which the array declarator is an assumed-size array declarator. An 
BSSiiinsd-sbaELe dummy array is a dummy array for which the array 
doalarator is an assuiied-shape declarator. A duiiiniy array Is 
permitted only in a function or subroutine subprogram (Section 16). 
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An BGiil^i SLLiiY is an array for which the array declarator is an 
accua! array declarator or an allocatable array declsrator. Each 
arr 'iiy In the main prograrii must be an actual arraj'. An actual arr^y 
in a subprogram must have a constant array declarator or an 
allocatable ar r ay decl ^vr ator • An actual array with an allocatablc 
arrviy declarator Is called an aii£>£i2fc-itllj2 RLL2.1' A dummy array may 
be used as an actual argument, 

3, 0,1 AnaUSIAaLE-.AREAXa-AtiD^AaaUSIAaLE«aii3£tiSiQliS. 

An BdiUSialliS 2.LL^1 is an array for which the array declarator is an 
odjustable array Jeclarator^ In >^n adjustable array declarator^ 
those dimension dec 1 arator s that conta In a variable name are called 

An adjustable array declarator must be a dummy array declarator. At 
least one dummy argument list of the subprogram must contain the 
name of tha adjustable array, A •/ ar i abl e name that appears in a 
iljrnenslon bound expression of an array must also appear as a name 
either in every dummy argument list that contains the array name or 
in a common block in that subprogram. 

At the time of oxacutlon of a reference to a function or subroutine 
containlnj an adjustable array in its dummy argument llst^ each 
actual argument that corresponds to a dummy argument appearing in a 
dimension bound suppression for tha firray and aach variable In common 
appearing In a dlmanslon bound expression for the array must be 
defined vn th an integer value. The values of those dummy arguments 
or variables in common/ together vm th any constants and symbolic 
nani'js of constants appearing in the dim<;nsion bound expression^ 
detciriiilne the size of the corresponding adjustable dimension for the 
execution of the subprogram. The sizes of the adjustable dimensions 
rind of ciny oonstent dimensions appearing In an adjustable array 
led arator cistern ine the number of elements In the array and the 
array element ordering. The execution of different references to a 
subprogram or different executions of the same reference determine 
possibly different properties (size of dimensions* dimension bounds^ 
number of elatrtents- and array element ordering) for each adjustable 
array in the subprogram. These properties depend on the values of 
any actual irnuments and variables in common that are referenced In 
th2 adjustable d i roans I on expressions In the subprogram. 

During the execution of an external procedure in a subprogram 
containing an adjustable arrays ths array properties of dimension 
slze^ low^r and upper dincnsion bounds^ and array slz^^ (number of 
elements In the array) do not change, Hoviever> the variables 
involved in an adjustable dimension may be redefined or become 
iin.i'3finad during axecution of the e>:tarn3l procedure v?ith no effect 
an the above inentloned properties. 
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5.9 ySE-.QE-AEE^X-tl4il£i 

In a program unitj each appearance of an array name must be In an 
array element name axcept In the. foMoHing cases! 



(1 
(2 
<3 
(4 

(5 
(6 
C7 

(8 
(9 

(10 
(11 
(12 
(13 
(14 
(15 
(16 



In a list of dii?iiT?y arguments 
In a COflMON statement 

In a type-statement 

In an array declarator. Note that although the form of an 
array declarator may be identical to that of an array element 
nama^ an array declarator Is not an array element name. 

In an EQUIVALENCE statement 

In a DATA statement 

In the list of actual arjumsnts in a reference to sn external 
pr Oct; dure or an intrinsic function 

In the list of an input/output statement 

As a unit idsntifier for ^n Internal file In an input/output 

statement 

As the format identifier in an input/output statement 

In a SAVE ststejiient 

As a primary in an array expression 

In an array assignment statement 

In an ALLOCATE or FREE statement 

In an IDENTIFY statement 

In a FORALL statement 



5,9,1 A££Ei^EAiiSl£-QE-ASRAY.SE(lIIQt:l_li^i:l£^ 

In a pro or am unit^ array sect i on navies niay appear in the following 

pi aces I 

(1) In the list of actual arguments in a reference to an external 
procedure or an intrinsic function 

(2) In the list of an I nput/ output statement 
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<3) As a unit identifier for an internal file in an Input/output 
statement 

(A) As the format identifier in an Input/output statement 

(5) As a primary In an array expression 

(6) In an array assi gnment s t atemen t 

(7) In a FORALL statement 

5U0 aHAaAfiiEE-suasiRilia 

A character substring is a oontiguous portion of a character datum 
nn i is of type character* A character substring is identified by a 
substring name and may be assigned values and referencedt 

5,10.1 SUaSIEItiS-tJAiJI:. 

The forms of a s.Uli2.1:Llai3 Q^se are: 

V ( Cj2l] : [s2] ) 

a is. Cj«a:... )( Ciil.1 : ZeZl ) 

MhereJ y is a character variable name 

a (^ Cisl*'*) is a character array element name or array 
section name 

al incl qZ are each an integer* raaU double precis lon^ half 
precision^ complex/ or Boolean scalar expression and are 
called ^UbstLiDS £>i£££SSiQDS • If 2(sC/S^«»«) is an 

array section^ It identifies the substrings of the array 
elements identified by the section subscript* 

The value £l specifies the leftmost character position of the 
substring and th2 value £i2 specifies the rightmost character 
position* For example* A{ 2 J ^) sped fi es characters in positions tvio 
chrough fcir of the character ysriabla A^ and 8(4^3) (1:6) specifies 
characters in positions one through six of the character array 
el ement B(4.*3) • J 

I 
The length of a character substring is MAX( Ojii2-i;il + l) . If the I 
length is non-zero then the values of el and e2 must be such that J 
l^iil^iHD^ I<l-fl2^i2n« If ill Is onltter^ a value of one is Implied for ' 
el. If £2 is omitted^ a value of iaa is implied for 22* Both ill 
and s2 may be omitted* for example^ the form ai'*) Is equivalent to I 
vj and the form ij(s C^s ],••)(:) is equivalent to ats C>s3»»«)« ' 
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5.10,2 Slia5ISING^£)$£SHS^iaii. 

A s.yl2£.J:LiQa 2X2L£S.siiIB ^ny be any scalar Integer* real* double 
precision^* half precision* complex or Boolean expression* A 
substring eKprassion may contain array element references and 
function references* Mote that a restriction In the eval uat i on of 
expressions (6.6) prohibits certain side effects. In particular* 
evaluation of a function must not alter the value of any other 
expression vUthin the s^me substring name. 
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6.0 EXPRESSIONS 

This section describes the formation. I n terpretat i on> and evaluation 
rules for ar i thmet i Cji character^ relational^ Boolasn^ bit^ and 
logical expressions. An expression is fornmd from operands^ 
operators^' and parentheses. 

An ^LL^l o£e£aDd is an array reference^ array section reference^ or 
a function reference vihose value Is an array. An BLL^iL £Z£££S.S:iiin 
is an arithmetic expression^ relational expression^ character 
expression.-* logical axprosslon^ Boolean sKpresslon^ or bit 
expression In vihloh one or more pri'^ar ies is en array operand* An 
array expression produces an array-valued result. 

6.1 AEIia!J£IIC«EX2EnS2IQLlS 

An arithmetic expression is used to express a numeric computation. 
Evaluation of an arithmetic expression produces a numeric value. 

The 3 imp last form of an arithmetic expression is an unsigned 
arlthnuitlc constants symbolic name of an arithmetic constant^ 
arithmetic variable reference^ arithmetic array element reference^ 
arithmetic array raferonce^ arithmetic array section reference^ or 
arithmetic function reference. More compllc8t*3d arithmetic 
expressions may be formed by using one or more arithmetic or Boolean 
operands together Hith arithmetic operators and parentheses. 
Arithmi'.tic operands must idantify values of type integer^ real/ 
rJouble precis ion> half precision^ or complex. 

6.1.1 ASIILlIi£Iia_Q£E£Ainss. 

Tha five arithmetic operators are: 



Op -jr a tor } Representing 



I '^* t Exponentiation 1 

! / } Di V is ion I 

=^ ! Multiplication I 

I - 1 Subtraction or Megation I 

I + ! Addition or Identity ! 

+ . . — + — -. . -. — + 

Egcli of the operators **> /^ and * operates on a pair of operands 
and is written betvieen the two operands. Each of the operators + 
<ind - either J 

(1) operates on a pair of operands and is viritten between the two 
operands^ or 
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6,0 EXPRESSIONS 

6. 1,1 ARITHMETIC OPERATORS. 



(2) operates on a single operand and is written preceding that 
oper and* 

6 . 1 . 2 £QSIl-AliII^ItlI£E£EEIAIIDiI^n£^AElIH HEIIH-EXE a£SSIDIi!S 

The interpretation of the expression fonned viith each of the 
arithmetic operators in each foriD of use \s ns follows: 



Use of i 


.Iperator 


1 

1 


Interpretat 1 on 


« WW •«• MiM «iW «W>« 




xl 


** x2 




Exponentiate xl to the 


power 


x2 


xl 


/ x2 




Di vide r.l by kZ 






xl 


* x2 




Hultiply xl and x2 






xl 


- x2 

- x2 




Subtract x2 from k1 
Negate x2 






Kl 


+ x2 




Add xl and x2 
Same as x2 







+ + — . + 

Hhjre: xl denotes ths operand to the left of the operator 

x2 denotes the operand to the right of the operator 

The i nt^srpretat i on of a div/ision may depand on the dat-i types of ths 
oper ands ( 6«1. 5) • 

A set of formation rules is used to establish the interpretation of 
an -nrlthmotic tvxprission that contains tno or more operstors. There 
is i\ precedence among the arithmetic operators^ which determines the 
order in vihlch the operands are to be combined unless the order is 
changed by the use of parentheses. The precedence of the arithmetic 
operators Is as folloi^ss 



I 



+ + 

I Operator I Precedence 

+ ^ — «-.-« — + -^ + 

\ ^<* ', MIcihest I 
I * ind / • Interried late I 
] + and - ! Lowest I 
+ + + 



For example,* In the exprasslon 
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6.1,2 FORM AMD INTERPRETATION OF ARITHMETIC EXPRESSIONS 

the exponentiation operator {tt.) has precedence over the negation 
operator {-)j therefore^ the operands of the exponentiation operator 
are cofiibinad to form rin oKpression that is used as the operand of 
th3 negation operator. The interpretation of the above expression 
is the same as the interpretation of the expression 

- (A ** 2) 

The iiLltiiiiiiitIi: GSfiLBBds ares 

(1) Primary 

(2) Factor 

(3) Term 

(4) Arithmstic sxprission 

The formation rules to be applied In establishing the interpretation 
of arithmetic expressions are in 6,1«2.1 through 6,1. 2. 4. 

6. 1.2,1 ELilBBLliSSj: 

The e.Lia2Li«S are: 

(1) Unsigned arithmetic constant (^#2.3) 

(2) Symbolic name of an arithmetic constant (8.6) 

(3) Arithmetic variable reference (2.5) 

(4) ArithiVitic array elenient reference (5.4) 

(5) Arithmetic array reference 

{&) Arithmetic arr=jy section reference 

(7) AriLhmetic function reference {16.2) 

(3) Arithmetic expression enclosed in parentheses (6.1.2.4) 
6. 1.2. 2 Elliii;i2£A 
The forms of a f^ntnr are: 

{ 1 ) Primary 

(2) Pr i mar y =!'* factor 

(3) Boolean priiiinry ** factor 
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6.1.2.2 Factor. 

(A) Primiry '^-^ Boolean primary 

(5) Boo Nian prl^iary *'^ Boolean prirnary 

Thus^ a factor is formed from a sequence of one or more primaries or 
Boolaen primaries {6«7«1»1) separated by tha exponentiation 
operator. Form (2) Indicates that in Interpreting a factor 
containing tHo or more exponent i at ion operators^ the pr i mar i es are 
combined from right to left. For ?5xafnplej tluj factor 

2^*3*^2 . 

has the same interpretation as the factor 

6.1.2.3 Ie£ij^ 

The forms of a t£LID are? 

(1) Factor 

(2) Term / factor 

(3) Term ^' factor 

(4) Term / Boolean primary 

(5) Term =5= Boolean primary 

(6) Boolean ^yriinary / factor 

(7) Boolean primary * factor 

(B) Bool?.ian primary / Boo 1 3 an primary 

(9) Boo I a an primary * Boolean primary 

Thus> a term is formed from a sequence of one or more factors or 
Boolean primaries (6.7.1.1) separated by either the multiplication 
operator or the division operator. The above forms Indicate that In 
interpreting a term containing tvjo or more multiplication or 
division operators^ tho factors or Boolaan primaries are combined 
from left to right. 

6.1.2.4 AniiiirQe iic^E X n r £ss iQDi 

ThD forms of an aniiltiiiJfiiix: iiiJELLaSEiQD are: 
(1) Term 
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6,0 , aXPR£SSIONS 

6«1,2#4 Arithmetic txpressiont 



(2) + term 

(3) - term 

(4) Arithniatic axPrsssion + term 

(5) Arithmetic expression -term 
{ 6 ) + B ] a a n primary 

(7) - Boolean prininry 

(B) Arithmetic expression + Boolean primary 

(9) Arithmetic express ion - Boolean primary 

(10) Boolean primary + term 

(11) Boolean primary - term 

(12) Boolean primary + Boolean primary 

(13) Boolean primary - Boolean primary 

Thus* an arichmetic CKpression is forTied from a sequence of one or 

nore terms or Boolean primaries separatt^d by either the addition 

operator or the subtraction operator. The first term or Boolean 

primary in an arithmetic expression may be preceded by the identity 

or tha negation opsrator. The above forms indicate that In 

interpretlnj an arithmetic expression containing two or more 
addition or subtraction operators^ the terms or Boolean primaries 
are comb i n 3ii from 1 e ft to r i ght • 

Mote that th:2£e foroatlon rules do not permit expressions containing 
two consecutive arithmetic operators^ such as A**-B or A+-B. 
Mo?}^V2r> expressions such as A'^^^(-B) and A+(-B) are permitted. 

6,1,3 MIItl{l£II£^£DlJaiANI-£]$£R£:S5IDbl- 

An BLiliiBaiiil £l2ns±3Qi £X££SSS.iQn is an arithmetic expression in 
which each (arithmetic) primary Is an arithmetic constants the 
symbolic name of an arithmetic constants or an arithmetic constant 
expression enclosed in parentheses* and each Boolean primary 
{6i7.1.1) is a Boolaan const^nt^ the symbolic nama of a Boolean 
constant^ or a Boolean constant expres s i on enclosed In parentheses. 
The exponentiation operator is not permitted unless the exponent is 
of typ'3 intnj{;r or Boolean. If the exponent u is of type Boolean^ 
the value used is INT(£), Mote that variable<> array element^ and 
function r«fari:2nces ara not allov^ed. \ 

» 
An £i;<i£Q£li2d 'irlthmetic constant expression is an arithmetic constant i 
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6.1.3 ARITHH2TIC CONSTANT cXPRESSION. 

expression except: 

(1) se I ected el emen tal intrinsic functions are allowed^ when 
referenced with constant arguments/ 

(2) selected ar r a^'-va} ued intrinsic functions are allowed. 

The list of allowed elemental and array-vs I ued intrinsic functions 
is implementation dependant. 

6,1, 3,1 lQt££ieL_£QQS±3ai;_E^e££S£l£!DA 

An iQjiiiasL £20£i;2nt ii2£EL£iSSifiQ Is an arithnietic constant expression 
{6.1«3) or a Boolean constant expression (6,7«3) in which each 
constant or symbolic name of a constant is of type integer or 
Boolean* If the integer constant expression £ is a Boolean constant 
expression^ the value used is IMT(s)« Note that variable^ array 
al3Fient> and function references are not aHoned. 

The folloviincj are examples of Integer constant expressions: 

3 
-3 

-3+4 
0'»74" 

R''A" 

R»'AB'« .AMD, 48 

An £isi£[iil££l integer constant expression is an integer constant 
exprasslon except: 

(1) selected elemental intrinsic functions are allowed^ when 
referenced with constant arguments^ 

(2) salfjcted ar f ay~val ued i ntr i nsl c functions are allowed. 

The list of allowed elemental and array-valued intrinsic functions 
is implementation dependant. 

6.1.4 Iia£_ALlI}-ItiIES£S£lAIlDli!_.Q£-. ASIIBi:iEII£.£^£EES^IQ ili 

The data type of a constant is detarminad by the form of the 
constant (4.2.1). The data type of an arithmetic variable 
refepencej symbolic name of an arithmetic constants arithmetic array 
element reference^ or arithmetic function reference is determined by 
thG name of the datum or ftinction (4.1.2). The datR type of an 
arrthm?;tlc expression c;ontalnlno one or more arithmetic operators Is 
determined from the data types of the operands. 

half fiLSclsloQ eisnLessions^ and Cfiaeis^ Pi<£L£5sions are arithmetic 
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6.0 EXPRESSIONS 

6,1.4 TYPE AMD li^TERPRETATIOM GF ARITHHETIC EXPRESSIONS 



expressions whose values are of type Integers real> 
precision^ half precision^ and complex^ respectively* 



doubl e 



llhen the operator + or - operates on a single operandi the data type 
of the resul ting express i on is the same as the data type of the 
operand unless the operand is of type Boolean^ in vihich case the 
type of the rasulting axpr^^ssion is int*;iger. 

Vfhan an arithnsetic operator operates on a pair of operandsji the data 
type of the resulting expression is given in Tables ?, and 3. In 
these tables^ each letter I> R^ Dj H^ or C represents an operand or 
result of type Integer^ raal^ double precision^ or complex^ 
r espect i ve ly • 

The type of tha result is indicated by tha 1/ R^ D^ H^ or C that 
precedes zhQ equals^ and the Interpretation Is Indlccted by the 
expression to the right of the equals. REALy DBLE^ HALF^ EXTEND^ 
and CMPLX are the type-conversion functions described in 16.10t 
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6,0 EXPRESSIONS 

6,1.4 TYPE AMD INTERPRETATION OF ARITHMETIC EXPRESSIONS 



Type and lot srpret ?!t ion of Result for xl+x2 



x2 



xl 



IZ 



R2 





11 




Rl 




Dl 




Ml 




CI 



: I = II + 12 

: R = Rl + REAL{I2) 

! D = Dl + DBLE(I2) 

; S! = HI + HALF (12) 

1C = C1+CMPLX{R£AL(I2);»0.) J 
.+ , +. 





R 








R 








D 












R 



REALdl) + R2 

Rl + R2 

Dl + DBLE(R2) 

REAL(Hl) + R2 

CI + CMPLX{R2>0.) 



X, 



xl 



Dl 



C2 



II 
Rl 
Dl 
HI 
CI 



D = DBLE(Il) + D2 
D = DBLE(Rl) + D2 
D = Dl + D2 
D = DBLE(Hl) + D2 
C = C1+CJ'1PLX(REAL{D2),0.3 



C=CnPLX(REAL{Il)>0.)+C2 

C = CMPLX(Rl/0.) + C2 

C = C f 1 ? L X ( R £ A L ( D 1) > . > + C 2 

C=C MP L X ( R E AL ( Ml ) ^ . ) +C 2 

C = CI + C2 



A- -^ 

I x2 
1 >:1 


[. . 

H2 


I 11 
1 Rl 
! Dl 
! HI 
! CI 


H = HALF(Il) + H2 
. R = Rl + RCAL{H2) 
D = Dl + 0BLG(H2) 
H = HI + H2 
'C^C1+CMPLX(REAL(H2)^0. ) 



4 + . 



^^, + 
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6,0 EXPRESSIONS 

6,1,4 TYPE AMD INTERPRETATION OF ARITHMETIC EXPRESSIONS 



Tables givlno the type ^nd interpretation of expressions Involving 
-y *j and / f?i32' be obtained by replacing all occurrences of + in 
Table 2 by -^ */ or /^ respectively. 
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6.0 EXPRESSIONS 

6,1.4 TYPE AMD INTERPRETATION OF ARITHMETIC EXPRESSIONS 



Illhl«_3 
Type and Interpretation of Result for xl'I'^i'xS 



x2 






12 


i 

1 




R2 


xl 


. _nai >•«.•>••• 






1 

t 






11 


I 


= 


11**12 


J R 


= 


REAL(I1)**R2 


Rl 


: R 


= 


R 1**1 2 


! R 


= 


R1**R2 


Dl 


D 


=: 


D1**I2 


1 D 


s 


D1**DBLE(R2) 


HI 


H 


= 


H1**I2 


I R 


.= 


REAL(H13**R2 


CI 


c 


= 


C1**I2 


; c 


- 


C1**CMPLX(R2jO.) 



x2 



xl 



02 



C2 



II 
Rl 
Dl 

ni 
ci 



D = 0BLE{I1)**D2 
D = DBLE{R1)**D2 
D = Dl** D2 
D = 0BLE(H1)**D2 
C^Cl**CMPLX(R£AL(D2)/0, ) 



C =C MP L X { R E AL ( 1 1 ) > • ) **C 2 

C = CMPLX(R1^0.)**C2 
C=CMPLX(R£AL(D1)5 0.)**C2 
C=CnPLX(REAL{Hl)>0.)**C2 
C = C1**C2 



+- 


x2 
xl 


-+-. 

.» -!..«• 


H2 




11 




M = HALF(I1)**H2 




Rl 




R = R1**REAL(H2) 




Dl 




D = Dl=J=*DBLE{H2) 




Ml 




11 = H1**H2 




CI 


lc= 


= Cl**C?1pLX(ReAL(H2):f0. ) 



+ + 4- 



Five entries In Table 3 specify an interpretation to be a complex 

value raised to a coniplex ponar. In these casns> the value of the 
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6.0 EXPRESSIONS 

6,1.^ TYPE AMD INTERPRETATION OF ARITHMETIC EXPRESSIONS 

expression is the "principal value" determined by xl**xH - 
HXP{x2*LQG(xl) )^ where EXP and LOG are functions described in 16«10, 

Except for a yalue raised to an integer power/ Tables 2 and 3 
specify that if two operands are of different type^ the operand that 
diffsrs In type from the result of the operation is converted to the 
type of the result and than the operator operates on s pair of 
operands of the same type. When a primary of type' real> double 
precisionj. half precision^ or complex is raisad to an integer povier^ 
thfj integer operand naed not be converted. If the value of 12 Is 
negative^ the interpretation of 11**12 Is the same as the 
interpretation of 1/ C I1**ABS { 12) ) ^ which is subject to the rules for 
integer division (6.1.5) • For example^ 2**{-3) has the value of 
1/(2**3) J which is zero. 

The type and interpretation of an expression that consists of an 
oparator operatinj on either a s I ngl e oper and or a pair of operands 
are independent of the context In which the expression appears. In 
particular* the type and Interpretation of such an expression are 
independent of the type of any other operand of any larger 
"i-ixpressl on in iihich it appears. For sxiiniple.' If X Is of type rea!^ 
J is of type Integer^ and INT is the real-to-integer conversion 
function^ the expression INT(X+J) is an integer expression and X+J 
is a real e?i:p res s 1 on . 

6.1.4.1 an22iiiaD-.Q2£iJ:andSL-2J3d_Ai:iihiD£±ic_f]£ei:2ifli:s 

A Boolaan operand (either base or power.) of the operator ** is 

converted to integer and the operation is performed on the converted 

operand. A Boolean operand of the operator +^ -^ * or / is subject 
i:o the f 1 I oi-j i na ru i es ! 

If two operands are of different type and one type is Boolean^ 
the result has the type of the other operand. If both operands 
are of typ2 Boolaan^ the re<;ult has type integer. The result of 
tha operator + or the operator - operating on a single Boolean 
operand is of type integer. A Boolean operand is converted to 
the type of the result^ and the operation is performed on the 
converto'l operand. 

6.1.5 INlI£££S_DIiiISiaU. 

One operand of type integer may be divided by pnother operand of 
bype integer. Altliouuh th« mathematical quotient of tno integers Is 
not necessarily an integer^ Table 2 specifies that an expression 
involving the division operator with two operands of type integer is 
Intorpreted ^hs an expression of typo integer. The result of such a 
division is oilled an inifillEL QLl£tiaQi and Is obtained as follows? 
If the magnitude of the mathematical quotient is less than one> the 
integer quotient Is zsro. Othernisej. the Integer ^luotient Is the 
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6,0 EXPRESSIONS 

6,1,5 INTSGHR DIVISION. 

integer whose magnitude is the largest integer that does not exceed 
the magnitude of the juathemat i cal quotient and whose sign is the 
same as the sign of the ma thenat i ca I quotient* For examples the 
value of the expression {~8)/3 Is (-2) • 

6.2 aLlASA£I£B-£Z£RSSSIOBS 

A character expression Is used to express a character string. 
Evaluation of a character expression produces a result of type 
character. 

The slniplest forj»i of a character expression Is a character constants 
symbolic name of a character constants character variable reference.* 
character array el-3fiient reference* character array reference^ 
oharsctar array section reference^ character substring reference^ or 
character function reference. More complicated character 
expressions may be formed by using one or more character operands 
tojother riltU character operators and parentheses* 

6.2.1 £ldARA£I££-.I]£EEAIOE. 
The charactcsr operator is? 

+ — + + 

; Operator I Representing ! 

+ + , : -}. 

! // ] Co neat en at I on * 
+ +— — — -. + 

The interpretation of the expression formed v?ith the character 

operator is: 

+ + + 

I Use of Operator ! Interpretation J 

4. . 4. . + 

I xl // x2 J Concatenate xl with x2 { 

vjhere: xl denotes the operand to the left of the operator 

x2 denotes the operand to the right of the operator 

The result of a concatenation operation is a character string whose 
value is th^j value of xl concatenated on the right uith the value of 
x2 and whose length Is the sum of the lengths of xl and x2. For 
example,, the value of »AB» // »CDE» is the string ABCDE. 

6.2.2 £aEI]^ALil2_ItiI£E£SEIAIinN„np.{IUAMfII£B«£J<ER£SSIQIil5 . 

A character expression and the operands of a character expression 
must identify values of type character. Except in a character 
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6,0 EXPRESSIONS 

6,2,2 FORM AMD INTERPRETATION OF CHARACTER EXPRESSIONS, 

assignment statement (10.4)^ a character expression must not involve 
concatenation of an operand whose length specification is an 

asterisk in parentheses (8«4«2) unless the operand Is the symbolic 
nanie of a constant. 

6, 2,2,1 £b2Lil£t££-.££lDia£iS5A 

The aliaLaalsL anioiaLiasi are: 

<1) Character constant CA,8,1) 

(2) Syrab'illc name of a character constant (8,6) 

(3) Character variable reference (2,5) 

(A) Character array e lament reference (5, A) 

(5) Character array reference 

(6) Character array section reference 

(7) Charactor substrino reference (5,10) ) 

(8) Character function reference (16.2) 

(9) Character expression enclosed in parentheses (6,2,2,2) 
6.2,2,2 QliaLnj2i:fS.L-£iki2£SS5.1ilD^ 

The forms of a £t!a£acia£ fi2S££§SSiflQ are: 

(1) Character primary 

(2) Character sxprasslon // character primary 

Thus^ a character expression is a sequence of one or more character 
primaries separated by the concatenation operator. Form (2) 
indicates that in a charactar expression containing t^o or more 
concatenation operators.* the primaries are combined from left to 
right to establish the interpretation of the expression. For 
example^ the formation rules specify that the interpretation of the 
character expression 

»AB« // »CD' // »EF« 

is the same as the interpretation of the character expression 

( »AB» // »CDn // »EF » 

The value of the character expression In this example is the same as 
that of the constant *ABCDFF», Note that parentheses have no effect 
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6,0 EXPRESSIONS 

6.2#2»2 Char^ictar Exprasslon. 

on the value of a character expression* 

6.2,3 cyASAQ.I£B-.iiaii5IMI-£I£E£Sai0ii. 

A obiiLiifiiSL i2£ias±aBi £iX£j:£^sinQ is a character expression in which 
each primary is a character constants the symbolic name of a 
character constants or a character constant expression enclosed in 
parentheses. Note that variablej» array element* substring* and 
function ri3fer6nc<2s are not allowed. 

An fixtiiQiisd character constant expression is a character constant 
expression except: 

(1) selectsd alamantal intrinsic functions are allovied* when 
referenced viith constant arguments* 

(2) selected array-valued intrinsic functions are alloned. 

The list of allowed ek?menta| and array-valued intrinsic functions 
is Implementation dependant, 

6,3 R£LAliai:lAL-LX£SEiSia!J2 

A relational expression is used to compare the values of two 
arithmetic or Boolean expressions* tv?o character expressions* or tHo 
bit expressions, A relational expression may not be used to compere 
the value of an arithmetic or Boolean expression with the value of a 
character expression or bit expression, A relational expression may 
not be used to compfiri? the value of a bit ej^presslon with the value 
of character expression* 

Relational expressions may appear only within logical expressions, 
Evaluation of 8 relational expression produces a result of type 
I J 1 c a I * with a value of true or false, 

6,3,1 E£LAIinHAL-.a£5EAIQRS. 
Th^ relational operators are: 

+ : + + 

1 Operator ! Representing 1 

+„- . + , + 

I .LT, I Less than ' 

I ,LE, I Less than or equal to ! 

I .C-0, { Equal to 1 

! .NE, I Mot equal to I 

I .GT, I Gr eater than I 

{ ,Gc, I Greater than or equal to I 

+ + ^ 
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6*0 EXPRESSIONS 

6,3.2 ARITHMETIC RELATIQMAL EXPRESSION. 



6 • 3 • 2 AaiIlJilEII£-.££LAIII3£J^L-OEaES5iai . 

The form of an atithiBiitiii L^i^tlnn^i ^x.2.L^2.s.lQn »sJ 

2l LiiiQE £2 

vihere: el and ^2 are each an arithmetic expression^ Boolean 
priiiiary^ or arithmetic array eKpression 

Liaiaa is a relational operator 

A complex operand Is permittad only whan the reiational operator is 

•EQ« or •NH» 

6,3.3 IO£E£R£IAIIQM-QE.AEIimJ£IIC_REL AIIDML_£1£E£SSIQHS 

An arithmetic re I at i ona I exprass j on is interpreted as having the 
loyical value true if the values of the operand ss at isfy the 
relation specified by the operator. An arithmetic relational 
expression is interpreted as having the looical value false If the 
valuas of the oper^^inds do not satisfy the relation specified by the 
operator. 

If the two operands are of different types or ara both of Boolean 

typcif the v'aIuq of the relational expression 

S.I £eio£ £2 

is the valui<3f thg expression 

( (iil) - {ij2) ) LRlSlB 

Hhere (zero) is of the same type as th 2 expression ((fiD- (s2))j» 
•2nJ L£i£!2 Is the same relational operator In both expressions, 

6. 3. A CBAEAai£R«E£UIIQML-EZ2E£S5IQ!J. 

The form of a nh^LacliiL L^la.tlnn^i Mx2LS.ssi^Jl is: 

£ll Ls2in£ £2 

where: el and e2 are character expressions or character 
irray e>:prosslons 

L2.i22 5s a relational operator 

6.3.5 ILHEEEEEIAIIQB-DE.Hij AE A£I£E-E£LA III)iJAL^£^£EEi5IQH^ 

A character relational expression Is Interpreted as the logical 
value true if the values of the operands satisfy the relation 
s pacified by the oporator. A character relational expression Is 
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6.3.5 INTERPRETATIDM OF CHARACTER RELATIONAL EXPRESSIONS 

interpreted as the logical value fa!so If the values of the operands 
do not satisfy the relation specif led by the operator. 

The character expression £l is considered to be less than ^2 I f the 
value of iil precedes the value of 22 In the collating sequence; 2I 
Is greater than £2 if the value of el fol lows the value of £2 in the 
oollating s-3C]uenca (3,1*5), Note that the collating sequence 
depends on the collation weight table used by the processor? 
however^ the result of the use of the operators .EQ. and .NE, can 
dapend on the collating sequence only If the user-specified 
collation Height table is selected^ and then only If the program has 
associated the same weight with two or more characters {3«1.5)» 

A oharactsr relational expression that is a logical primary of a 
lojical constant expression appearing In a nonexecutable statement 
(7t2) or a conditional compilation IF-directive (3.7«2) is 
interpreted us In si the ASCII col latino sequence (Appendix A). Use of 
the C$ condition control directive {3.7«3) does not affect the 
interpretation of such expressions. 

6.3.6 Bii.E£LAIIDHAL-M£££SSin£J 

The forni of a hl± xiiiatiiiQ^i fixanfiS-siQa is' 

where; el and e2 are bit expressions or bit array expressions 
LSiLqh \s c. relational operator 

6.3.7 I^iIEg£S£IAIIQIi.Q£.IiII_B£LAIIQLlAL-.£^P££^iIOUS 

A bit rslatlonal expression Is Interpreted as the logical value true 
if the values of the operands satisfy the relation specified by the 
on2^^^tor. A bit rsiationQl expression Is interpreted as the logical 
value false If the values of the operands do not satisfy the 
relation specified by the operator. 

6.'f LQl2i£AL-£)i£E£:SSIQ!iS 

A logical aKpress I on Is used to express a logical computation. 
Evaluation of a logical expression produces a result of type 
1 J I c a I • ! J it'navalueoftrueorfalse. 

Th€2 simplest form of a logical expression |s a logical constants 
symbolic name of a logical constant^ logical variable reference^ 
logical arrv^iy element referance^ logical array reference^ loijical 
array section refarence> logical function reference^ or relational 
expression, Nore complicated logical ex press i ons may be formed by 
using one or more logical operands toijether with logical operators 
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6,0 EXPRESSIONS 

6,4 LOGICAL cXPRESSIOHS 



and parentheses, 

6.4.1 LQSKAL^QEESMDES* 

The iiiaiiiai iiaaLatiiLS ares 



! Operator 1 



Represent ing 



; .MOT, 
\ .A>1D. 

I nn 

1 • >J i\ « 

.EQV. 
I .MEQV. or 

I . XOR • 

+ — , 



Logical Negation J 

LoDical Conjunction I 

Lojical Inclusive Disjunction I 

Logical Equivalence ! 

Logical Non-Equivalence 1 



6.4,2 £QEIJ_ALii}UNIE££S£IAIiaB-n£,LQ5ICAL>£X£S£SSIQtiS. 

A sat of foriiiation rules Is used to establish the Interpretation of 
a logical expression that contains two or more logical operators. 
There is a precedence among tha logical oporators/ vfh i ch determines 
tha order in which the operands sre to bs conblned unless the order 
Is changed by the use of parentheses. The precedence of the logical 
operators is as followss 



+ 

i 

t 

+ 



Operator 



,+ + 

I Precedence I 
+ — + 

' M i ghest 

t 
I 



.MOT. 
. AMD . 
• UK. I 

.EQV.^.MEQV. or .XOR. I Lowest 

^ ^ .-+ 

For example^ in th-' expression 

A .OR. B .AND. C 

tha .AMD, operator has higher precedence thsn th<3 .OR* opverator; 
therefore^ the Interpretation ov the above express ion Is the same as 
the interpretation of the expression 

A .OR. (B .AMD. C) 

The ii^ninai IlHii£BQ-l£ are: 

( 1 ) Logical primary 

(2) Lojict^l factor 
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6,4,2 FORM AMD IUT£RPRHTAT ION OF LOGICAL tXPRESSIONS. 

( 3 ) L g i c a I t e r HI 

C4) Logical disjunct 

(5) Lo:3ica I ax prassi on 

Tha formation rules to be appflad in astabiishlng the interpretation 
of a logical express i on ar e in 6 •4*2t I t hrough 6«4t2.5t 

6.4 r 2.1 Laili23l-.££iaa£i^SA 

The liSiiiiiiii 2£il!ia£i££ a re J 

<!) Lojical constant {4,7«1) 

(2) Symbolic name of a logical constant (8.6) 

(3) Logical variable reference {2.5) 

(4) Logical array element reference (5,4) 

(5) Logical array reference 

(6) Logical array saction referencs 

(7) Logical function reference (16.2) 

(8) Relational expression (6.3) 

(9) Logical expression enclosed in parentheses (6.4.2.5) 
6.4.2.2 Lnaisal-Easi:s£x 

Tha forms of a inaiiiiii £iicj:n£ are: 

(1) Log i cal pr imary 

(2) .NOT. logical primary 
6,4.2.3 Li2£liiS^i_l2£ig-. 

The forms of a iQ^in^L ia£il3 are: 

( 1) Log leal factor 

(2) Logical term .AND. logical factor 

Th'js> 3 logical term is a soqusnce of logical factors seperated by 
thj .AMD. oparator'. For>T. (2) Indicates that in interpreting a 
logical term containing two or more .AND. operators^ the logical 

factors arc! oombin's;! from left to right. 
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6«^«2t4 Logical Disjunct. 

Th2 forms of a lnaLn2.i disiUDSt ares 

(1) Log I cal term 

(2) Lojioal disjunct »0R. logical terni 

Thus^ a logical disjunct is a ssquence of logical terms separated by 
the .0R« operator. Form (2) indicatas that in interpreting a 
lojical disjunct containing tno or more .OR. operators^ the logical 
terms are combined from left to right, 

6,4.2.5 L2Ilisai-.£>S2L£SSi2Dji 

Tha forms of a ifloifiiil £XaL£S.s.iaD are? 

(1) Lo£|lcal disjunct 

(2) Logical expression .EOV, logical disjunct 

(3) Logical expression .NEQV. logical disjunct 

(4) Loiiical expression .XOR. logical disjunct 

Thusi a lojical express Ion is a sequence of logical disjuncts 
separated by either the .EQV.^ .NEQV.> or .XOR. operator. Forms 
(2)j (3)^ and (4) indicate that in interpreting a logical expression 
containinj tvio or more .HQV.j •NEQV.^or .XOR. opEriitors> the 
logical disjuncts are combined from left to right. 

The value of a logical factor Involving .NOT. is shown below: 

H + + 

I x2 ! .NOT, x2 ! 

+ +- ■ + 

1 true 1 false \ 
I false J true } 

+ .+„^ . + 

Tho value of a logical tern- involving •AMD. is shown below: 
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6,0 ^EXPRESSIONS 

6,4.3 VALUE OF LOGICAL FACTQRSi TERMS/ AND EXPRESSIONS 



\ xl I x2 J xl -AND* x2 5 

+ f + — . + 

\ true ! t r u e ? true { 

I true 1 false ] falsa I 

I falsa I true ! false ! 

'false J false I false J 

Th3 value of a logical disjunct Involving .OR, Is shown below: 

+ ^ + + + 

I xl I x2 iXl« OR • X £- I 

^ : + .^. + + 

I true J true ' true I 

I true I f a I s e \ true I 

1 false 1 t r u e 1 true ! 

J falsa I false J false I 

,i.. — .« + + 4- 

The value of a logical expression Involving tEQV. is shown below; 

+— — — «™+-^ — -.-.« — .+-—.««« — .»-.^ — + 

J xl I x2 ,' xl .EQV, x2 I 
+ — 4.-,-. + .«.+ 

\ true ! true 1 t ru e ! 
1 tru3 I fals^J I false I 
] false t true J false I 
\ false ] false I true ! 

+ + «-+ — . — -+ 



Th-j valu2 of a logical ejjpresslon Involvina .NEQV, or .XOR, Is 
shown below: 



>^. + — , — + + 

xl } >j2 \ xl .HEQV, y2I 

xl I x2 } xl . XOR, x2 I 



! true { true J false 1 

! try 3 I false I true ! 

J false I true I true I 

! false 1 false \ false ! 

+ + ^-4- - + 

6.4,4 LQQIC^L-CQtiEIAtil^tXESE^SIDti. 

A ifliiicai JSi2D£iaDi ii2SE££L5JSii2ii Is a loiDical expression in which each 
pr im?.rr is a lo£3icnl constants tha symbolic name of a logical 
constants a relational expression In which each primary is a 
constant expression^ or a logical constant expression enclosed in 
parentheses, ilote that variable^ array el amenta fnd function 
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6,0 EXPRESSIONS 

6,4.4 LOGICAL COMSTANT EXPRSSSIOH. 



references are not allowed. 

An 2^j;£Q£l£i£i logical constant expression is a logical constant 
expression except: 

(1) selected elemental intrinsic functions are allovied^ vihen 
referenced yith constant arguments^ 

(2) selected array-valued Intrinsic functions are allowed. 

The list of al lowed elemental and array-valued Intrinsic functions 
IS Iniplenientation dependant, 

6.5 £S£C£Qlili£.£-QE-nP£EAlI3ES 

In 6.1.2 and 6.4.2 precedences have been established among the 
arithmetic operators and the logical opera tor s.f respectively. There 
is only one character operator. No pracedence has bean established 
anong the relational operators. The precedences among the various 
oper ator s ar e: 



\ Oper fetor 

+ 

I Ar i thmeti c 

! Character 

I Ra I at lone I 

! B i t 

! Logical 

+ , 



1 Precedence 

+ 

Highest 



L owest 



An expression rray contain more than one kind of operator. For 
ex ampler the logical expression 

L .DR. A + B .Gc. C 

vjhere A/ B^ and C are of type real and L is of type logical^ 
contains an arithmetic operator^ a relational operator^ and a 
lojical operator. This 'Expression houH ba interpreted the same as 

thi ex:>rass i on 

L .GR. ( (A + B) ,GE. C) 

6 . 5 . 1 lU^LlAai^QE.IliI£E£E£IAIiail^EyLES. 

The order in which primaries are combined using operators is 
d e t e r m i n e d b y t h e f o 1 1 w i n g : 

(1) Usd of paranthases 

(2) Precedence of the operators 
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6.0 EXPRESS IQKS 

6,5.1 SUMMARY OF IMTcRPRETATION RULES. 



(3) Rljht-to-left Interpretation of exponentiations In a factor 

(4) Lef t~to-r i ght Interpretation of multiplications and divisions 

i n a t e r m 

(5) L 2f t-to-r I ght Interpretation of additions and subtractions In 
an arlthuietic expression 

(6) Left-to-right Interpretation of concatenations in a charactor 

expr^'^ss I on 

(7) Left-to-right Interpretation of conjunctions in a logical 
term^ Boolean teriUji or a bit term 

<6) Lef t-to-r i ght interpretation of disjunctions in a logical 
disjunct^ Boolean disjunct^ or a bit disjunct 

(9) Left-to-right interpretation of equivalences In a logical 
express ionji Boolean expression^ or bit expression 

6.6 EMLUAIiaii.nE^EXPSlISSIIlIiJS 

This section applies to arithmetic* characters relational* bit* 
Boolean* and loaical expressions. 

Any variable^ array* array section* array element* function* or 
character substring referenced as an operand in an expression must 
be defined -it the time the reference is executed. An Integer 
operand must be defined with an integer value* rather than a 
statement label value. Mote that if a character string or substring 
is rsferenced* all of th-i ref-:;ranced characters must be defined at 
th2 tiiiie the reference Is executed. 

Any arithmetic operation whose result is not mathemat i ca H y defined 
is prohibited in the execution of an axacutable program, Examples 
are divldlnj by zero and relsing a zero- valued primary to a 
zero-valued or negative-valued power. Raising a negative-valued 
primary to a real or double precision pov^er is also prohibited* 

The execution of a function reference In a statement may not alter 
the value of any other entity within the statement in which the 
function reference appears. The execution of a function reference 
in a statement may not alter tho value of any entity in common (3.3) 
that affects the value of any other function reference In that 
statement. However* execution of a function reference in the 
expression e of a logical IF statement (11.5) is permitted to affect 
entities in the statement si that Is executed when the value of the 
expression e is true. If a function reference causes definition of 
an actual arjument of th^ function* that argument or any associated 
entities must not appear elsewhere in the same statement. For 
example* the statements 

CONTROL DATA PRIVATE 



Control Data Corporation Standard FORTRAN 



6-23 
83/06/30 



6,0 EXPRESSIONS 

6.6 EVALUATION OF EXPRESSIONS 



A(I) = F(I) 



Y = 

are prohibited 
defines X« 



G(X) -f X 

If the reference to F defines I or the reference to G 



Tho data typ^;i of an expression in nhich a function reference appears 
does not affect tha evaluation of the actual argufnents of the 
function. The data type of an expression In which a function 
reference appears is not affected by the evaluation of the actual 
irjumants of the function^ except that the result of e generic 
function reference assunres g data type that depends on the data type 
of its argunients as specified in 16«10« 



Any eKQcution of 
of its subscript* 
subscript appears -^^^^ 
evaluation of the subscript. 



an array elama 
The data type of an 
not affects nor 



nt reference requires the evaluation 

ox.nrf>c^ I nn Jn whJCh 3 



does 



express ion ... -., 

is it affected by^ the 



Any exGcutlon of a substring reference requires the evaluation of 

its substring expressions. The data type of an expression in which 

a substrino name appears does not affect.? nor is it affected by> the 
evaluation of the substring expressions. 

Any execution of an array section reference requires the evaluation 

of its section subscript exprasslons. The data type of an 

expression in nhlch an array section appears does not affects nor Is 
it affected by/ the evaluation of the array section. 

Vlhcn an arithmetic operator^ character opert^tor^ relational 
oporator.> or logical operator operates on a ^^slr of operands and at 
least one of the operands Is an array operand^ the operands must be 
conformable. The arithmetic operation^ character operation^ 
relational operation^ or logiceil operation is performed 
« lanient-by-e I emont on corresponding array elements of the operands* 
The result of the operation is the same shape as the array operand 
or array operands. For oxampla^ the array expression 

A+8 

produces an array the same shape as A and B. The individual array 
•ilemants of the result have the v<?ilues of the first element of A 
added to the First e lenient of B> the second eleritent of A added to 
the second element of B^ etc. The processor may perform the 
G I ement-by-e I ement operations in any order it chooses. 

V/hen an arithmetic oper;?»tor or a logics?! operator operates on a 
single array operand^ the operation Is performed element-by-element 
and the result is the same shape as the operand. 



CONTROL DATA PRIVATE 



6-24 
Control Data Corporation Standard FORTRAN 

83/06/30 

6,0 EXPRESSIONS 

6,6,1 EVALUATION OF OPERANDS. 

6.6.1 EviALy4IIQli-.Q£-Q£ESA!inS. 

It Is not necessary for a processor to evaluate all of the operands 
of an expression if the value of the expression can be determined 
otharwlss. This principle is most often applicable to logical 
expressions nnd zero-sized arrays^ but It applies to all 
expressionSi For example. In evaluating the logical expression 

X .GT, Y .0R« L(Z) 

Hhare Xj Y^ and Z are real and Lis a logical function^ the function 
reference L{Z) need not be evaluated if X is greater than Y« 
Similarly in the array expression 

X + Y(Z) 

where X is of size zero and Y is an array-valued function^ the 
function rafarenca Y(Z} need not ba evBluated, If a statement 
contains a function rafersnce In a psrt of an expression that need 
not be evaluated^* all entities that would have become defined in the 
execution of that reference become undefined at the completion of 
•JVGluation of the expression containing the function reference* In 
the axample above^ eval uat I on of the expression causes z to become 
undefined if L defines its argument. 

6.6.2 ngfiEE-.a£-EiiALyAIIQiJ-0£>EyLi(IIIQti5. 

If a statefient contains ipor e than one function reference^ a 
processor may evaluate the functions in any orders except for a 
lojical IF statement and a function argument list containing 
function r^forences. For exfimple^ th2 statement 

Y = F ( G ( X ) ) 

ihcre F and G ere functions^ requires G to be evaluated before F is 

evaluated. 

In a statement that contains more than one function reference^ the 
vaUie provided by each function referance must be independent of the 
order chosen by the processor for evaluation of the function 
references. 

6.6.3 TMI£(2aiII-.GE-EAE£yiti£S£S. 

Th J sections that follow state certain conditions under which a 
processor may evaluate an expression different from the one obtained 
hy applying the Interpretation rules given in 6.1 through 6.5. 
Hov/ever.» any expression contained In parentheses must be treated as 
an entity. For example^ in evaluating the expression A*(B*C)^ the 
product of B and C must be evaluated and then multiplied by A; the 
processor mu:';t not evaluate the mathematically ecjul va I snt expression 
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6.0 cX?5RES3IOHS 

6.6.3 INTEGRITY OF PARENTHESES. 



(A^'B)^^C. 

6.6.4 E£^I(iI<II10tiS-.ati-4£££Aa^!iCE^Q£-AESAI«O£B£SSIDIJS 
Array-valued expressions may not appaarJ 

(1) As a logical expression of a lo£){cal IF statement 

(2) As a logical expression of a block IF or ELSE IF statement 

(3) A3 £l^ ^2^ or a3 expressions of a DO statement 

(4) As an arithmetic expression in an arithmetic IF statement 

(5) In .1 computed GO TO, QP5Mj» CLOSE, IMQUIRE^ or RETURN 

statem'snt. 

(6) In the REC= specifier of a siii^i 

(7) In a 5Ubstrino expression 

(8) As an external unit identifier 

6.6.5 £ii[ALUAIIQli-.aF_AailLll:]£Iia-£X££ESSinMi 

The ruiss olven in 6.1.2 specify the interpretation of an arithmetic 
expression. Once the interpretation has been established in 
accordance nith those rules, the processor may evaluate any 
rvathesnat i cal I y equivalent expression, provided that the Integrity of 
parentheses is not violated. 

Two arithmetic expressions are fnathemati call y equivalent if, for all 
possible values of their priin*iries and Boolean primaries (6.7.1*1), 
their mathematical values are equal. However, mathematically 
equivalent arithmetic expressions may produce different 
computational results. 

Thi* mathernat 1 ca I definition of integer division is given in 6.1,5. 
The difference beti-ieen the value of the expression 5/2 and 5./2« is 
a mathematical difference, not s computational difference. If 
Boolean operands (6.7,1) are present in an arithmetic expression, 
its operators may not have the associative and distributive 
properties that would yield mathematically equivalent expressions if 
'ill operands viere arithmetic. For example^ the expressions 

2.0 + 0"1" + D"l" and 
2,0 + (0"1" + T»l") 

ara not mathematically equivalent. 
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6,0 EXPRESSIONS 

6,6,5 EVALUATIOM OF ARITHMETIC EXPRESSIONS 



Ths foHoHino 5^re exaniplos of expressions^ 
alternative forms that may be used fay 
evaluation of those express } ons • Af Bji 
reaj^ douole praclslon^ or complex 
arbitrary Integer operands? and X^ Y# 
arithmetic operandso 



a long with a I lowab I e 

the processor In the 

and C represent arbitrary 

operands; I end J represent 

and 2 represent arbitrary 



Express i on 



Allowable Alternative Form 



X+Y 

X^-Y 

-X+Y 

X+Y+Z 

X~Y+Z 

X*Y-X^:vZ 

A/8/C 

A/5,0 



Y+X 

Y*X 

Y-X 

X+(Y+Z) 

X-{Y-Z) 

X^MB/Z) 

X'^MY-Z) 

A/{B*C) 

0,2*A 



+ + — . . + 

fol lowing are examples of expressions along with forbidden forms 
must not be used by the processor In the evaluation of those 
e:ss i ons» 



The 

that m 
lixpr^iss i ons» 



r^x press i on 



Non-Allowable Alternative 
Form 



1/2 




x-^i-i/j 




I/J/A 




{X'^Y)-(X*Z) 




X*{Y-Z) 


— + 



0,5*1 

X*(I/J) 

I/{J*A) 

X*(Y-7) 

X*Y-X*Z 



In addition to the parentheses requir'Sd to establish the desired 
interpretation^ parentheses may be included to restrict the 
alternative forms that may be used by the processor in the actual 
evaluation of the expression. This is useful for controlling the 
majnitude and scouracy of intormediata values clevaloped during the 
evaluation of an axpresslon. For examples in the expression 

A-MB-C) 

i:h;3 term (3-C) must be evaluated and then added to A. Note that the 
inclusion of parentheses may change the mathemat i cal val ue of an 
expression. For example^ the tuo expressions; 

A*I/J 
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6.0 EXPRESSIONS 

6,6.5 EVALUATION OF ARITHMETIC EXPRESSIONS 



A*{I/J) 

m^y have different mathematical values if I and J are factors of 
Integer data type* 

Each operani of an arithmetic operator has a data type that iriay 
depend on the order of evaluation used by the processor. For 
examples in the evaluation of the expression 

D+R + I 

yhere D^ R^* and I represent terms of double precision^ real^ and 
integer data type/ r esp ect i ve ly^ the data type of the operand that 
is added to I may be either double precision or real/ depandlng on 
which pair of operands (D and R^ R and Is or D and I) is added 
first. 

6.6.6 li\i^LUAIiaii-Q£^£ldASACIEE-£X£EESSiaL!^ 

The rules given in 6.2*2 specify the interpretation of a character 
expression as a string of characters. A processor needs to evaluate 
only as much of thsv character expression as is required by the 
context in vjhich the expression appears- For example^ the 
statements 

CMARACTER*2 Cl/C2/C3jCF 
CI = C2 // CF{C3) 

do not require the function CF to be evaluated^ because only the 
vajy-s of C2 is neadad to determine the value of CI. 

6.6.7 £VALyAIIQM-.Q£_.RLLAIiniiAL-£X£aESaiaiil2 

Th-i ruh^s given In 6.3.3 and 6.3.5 specify the interpretation of 
rciatjonai expressions. Once the Interpretation of an expression 
has been established in accordance with those rules/ the processor 
may evaluate any othar expression that is relationally equivalent. 
For example/ the procassor may choose to evaluate the relational 
express i on 

I .GT, J 

whire I and J are Intejer variables/ as 

J - I .LT. 

T'.jo rjlational express ions are relationally equivalent if their 
lojlcal values are equal for all possible vplues of their primaries. 
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6,0 EXPRESSIONS 

6,6.8 EVALUATIQM OF LOGICAL EXPRESSIONS 



6.6.8 £MALyAIIDLl.Q£_LIIGI£AL-0£E£SSIDli2 

The rules given in 6.4,2 specify the in 1 6rpr ci^tat i on of 2 logical 
<3Xprsssion. Once the interpretation of an expression has been 
established in accordance with those rules^ the processor may 
evaluate any other expression that is logically equivalents provided 
that tha i n tojr i ty of p arenth^ses is not violated. For examples ths 
i^rocessor may choose to evaluate the logical expression 

LI .AND. L2 .AND. L3 

vihara Lis L2^ and L3 are loglc;il variables/ as 

LI .AND. {L2 .AND, L3) 

Two logical expressions are logically equivalent if their values are 
aqual for all possible values of their primaries. 

6.7 aQDL£AM-£^£E£iSiaHS 

A IiQQisan_£2i2££SSian is forfrrsd v;ith logical operators and Boolean 
operands and/or arithmetic operands (6.1.2). Evaluation of a 
Boolean expression produces a result of type Boolean* 

6.7.1 BQ0L£Ay-QE£EAliD5 
The aaniiiiiO-UiiELaQila are* 

(1) Bool ean pr imar y 

(2) Boolean factor 
{ 3) Boo I ean term 

(4) Boo I 'i an disjunct 

(5) Boolean expression 

The formation rules to be applied in establishing the Interpretation 
of a Boolean oxpr*Jssion ire in Sections 6 •7.1.1 through &.7.I.5. 

6,7. 1.1 a£iiiiii3n-£Liiaii£:£ 

The a£il2isaQ-.l2£ifflaLi£S are: 

(1) Unsljned Boolean constant (4.9.1) 

(2) Symbolic name of a Boolean constant (8.6) 

(3) Boolean variable reference (2.5) 
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6.0 EXPRESSIGHS 

6.7.1.1 Boolean Primary 

(4) Boolean array alernent reference (5t4) 

(5) Boolean function referance (16.2) 

(6) Boolean array reference 

(7) Boolean array section rafarenco 

(8) Boolean expression enclosed In parentheses (6.7.1.5) 

6.7.1.2 fioaisaQ-EastnL 

The forms of a Bi2£liii^£l-f£iclfi£ are 

(1) Boolean primary 

(2) .HOT. Doolaan pr I n-ary 

(3) .MGT» arithmetic expression 

6.7.1.3 a!lQiii£iQ-.Ia£a 

The forms of a Euai^ail-i^IJD are 

(1) Boolean factor 

(2) Boolean term .AMD. Boolean factor 

(3) Boolean term .AMD. arithmetic expression 

(4) Arithmetic expression .AND. Boolean factor 

(5) Aritlimetic expression .AND. arithmetic expression 

Th'js a Boolean term \s a sequence of Booh^an factors and/or 
arithmetic axpresslons^ separated by the .AND. operetor. Forms (2) 
and (3) indicate that In interpreting a Boolean term containing two 
or more .AMD. operators^ the Boolean factors and arithmetic 
rxpfossl ons are combined from left to right. 

6.7.1.4 aflai£iin_DisiiiQ£i 

The forms of a EflQi^aQ-iliaJunGi; are: 
( 1) Boo I ean term 
(23 Boolaan disjunct .OR. Boolean term 

(3) Bool<;!an disjunct >.0R. arithmetic expression 

(4) Arithmetic expression .OR, Boolean term 
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6.0 EXPRESSIONS 
6«7«1»4 Boolean Disjunct 

(5) Arithmetic expression .OR* arithmetic expression 

Thus a Boolean disjunct is a sequence of Boolean terms and/or 
arithmetic expressions^ separated by the .OR. operator. Forms (2) 
and (3) Indie ate that In inter pretinga Boolean disjunct containing 
two or more .OR. operators^ the Boolean terms and arithmetic 

axpfvissions are combined from left to right. 

6. 7. 1.5 B£l£lI^i3£}-£^il££S.S.l£lD 

The forms of a Uaaifi^n £il2£fiSSiQn ara: 

(1) Boolean disjunct 

(2) Boolean expression .EQV. Bool ean di s junct 

(3) Boo 1 oan express 1 on .EQV. arithinetic expression 

(4) Arithmetic expression ,EQV, Boolean disjunct 

(5) Arithmetic expression .EOV. arithmetic expression 

(6) Boolean expression .HnqV. Boolean disjunct 

(7) Boolean expression .MEQV. arithmetic expression 
(3) Arithmetic expression .MEQVt Boolean disjunct 

(9) Arithmetic expression • MEQV. ar i thmet i c expression 

(10) Boolean expression .XOR* Boolean disjunct 

(11) Boolean expression .XOR. arithmetic expression 

(12) Aritiimetic expression .XOR. Boolean disjunct 

(13) Arithmetic expression .XOR. arithmetic expression 

Thus^ a Bnoieiin expression is a sequence of Boolean disjuncts 
separated by the •EQV*^ .NEQV.^ or .XOR. operators. Forms (2)^ (3)> 
(6)^ (7)^ (10)^ and (11) Indicate that in interpret I n?? a Boolean 
■expression containing two or more .EQV.^ .MEQV.^ or •XOR« 
operators^ the Boolean disjuncts and arithmetic expressions are 
combined from left to right. 

6.7, 2 yALyE-Q£-.IiQaLE^U-£A(IIQESi-.IEELlSi-.^tiD-£ii£S£SSIfltiS 

If an operand is of type integer,, real^ double precisions half 
praci3ion.« or complex^ it is converted to Boolean and the operation 
per forrnad on the converted operand. Conversion to Boolean is by 
means of the generic function BOOL (16.10). 
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6.0 EXPRESSIONS 

6.7.2 VALUE OF BOOLEAM FACTORS^ TERMSi AND EXPRESSIONS 



A Boolean operator determines each bit value of tlie value it yields 
independently of other bits of the value. Each bit value is 
datarmlned from the correspond! nvi bit values of the operand(s). 
(Two bit positions correspond if they have the same ordinal In their 
storage sequence 'within their respect! ve storage units.) 

Each bit value of a Boolean factor involving .NOT. Is shown belowj 



X2 



NOT 



— + 
X21 



ach bit value of a Boolean term involving .AMD. is shown below! 






— + 



XI I X2 !X1 .AND, X2 { 






J 





J 1 


1 


1 


1 


1 1 



Each bit value of a 
b 3 I w 



Boolean expression involving .OR. is shown 



I XI ! X 



IXl .OR. X2 



Each bit 
b e 1 !^ : 



y a I u e 



1 Boolean expression involving .EQV. Is shovm 
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6.0 EXPRESSIONS 

6,7,2 VALUE OF B00L£A!4 FACTORS^ TERMS> AND EXPRESSIONS 



XI 



X2 IXI .SqV, X2 1 






I 





1 1 


1 


J 


1 


\ 1 



Each bit value of a Boolean expression involving tNEQV. (or •XOR.) 
Is shown below: 

.{ + + * + 

J XI ; X2 {XI .N5QV, X2! 



6.7.3 aQQLEAH-CQtiSIAtlI-£XEE£SS.IQH 

A BflQifiiin Iiansi^Di £iSl2£SSSiDD is a Boolean expression in which each 
Boolaan primary Is a Boolean constant^ the symbolic name of a 
Boolean constant^ or a Boolean constant expression enclosed in 
parentheses* and each arithmetic primsry is en firithmetic constants 
thsii symbolic n^sne o^ an arithmetic constants or an arithmetic 
constant expression enclosed In parentheses. 

An SiiiSQdfill Boolean constant expr^»ssion is a Boolean constsnt 
expression oxcepts 

(1) selected elemental intrinsic functions are allowed^ when 
referenced ■Jith constant argvi.iian ts/ 

(2) selected arr sy-va | ued 1 ntr Insl c functions are allowed. 

The list of allowed element^Tl and ar ray-v3lu«2d Intrinsic functions 

i 3 1 mp I ement at i on dependant. 

6.8 CQIiSIAblI>.£X£EESSIDbl5l 

A GflQEtilDt :i2iE£iiSaif2Q Is an arithmetic constant expression {6.1.3)> 
a character constant expression (6.2.3)j> a bit constant expression 
{&.9,3)j a logical constant expression (6.4. ^)j a Boolean constant 
tjxprcission (6.7.3)/ or ^ bit constant axprsjssion (6.9.3). 
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6.0 lXPRESSIDNS 

6.8 CONSTANT EXPRESSIONS 



An i!:i±i2Q£l£i£l constant expression is a constant expression excepts 

(1) selected elemental intrinsic functions are allowed^ when 
refaranced uith constant argymentsjt 

(2) selected array-valued Intrinsic functions are allowed* 

The list of allowed e I emfintal and ar r ay-va 1 ued I ntr ins I c f unct i ons 
is implementation dspendant. 

In order to eliminate circularity of definition^ no variable or 
array name may be referenced In an extended constant expression 
unless that variable or srray has been defined In preceding 
sped f i cat I on statement (s )• For expampi ej> 

REAL A{ SIZE(B)) 
REAL B{ SIZE(A)) 

Is prohibited because B was referenced pr lor to Its definition. 

6.9 aiI-£2$EE£S5IQtl2 

A bit sxprasslon is used to express a bit computation. Evaluation 
of a bit expression produces a result of type b i t^ with a value of 
B"l" or B';0". 

The simplest form of a bit expression Is a bit constants symbolic 
name of a bit constantj* b i t variable reference^ bit array element 
reference^ bit arr ay r sf er ence^ bit array section reference^ or bit 
function ref. trance, Morii complicated bit expressions may be formed 
by using one or more bit operands together with bit operators and 
parentheses. 

6.9.1 ail-QEEE^IQBS. 

The tiii i22££ail2I5 are: 



Represent Ing 



+ " +■ 

I Operator J 

+ ^ ^ ^« -.+ 

.BNGT. } Bit Negati on 1 

•BAND. ; Bit Conjunction J 

• BOR. { Bit Inc I us I ve Dl sjunct I on ! 

•BEQV. ! B it Equlval ence ! 

•BNEQV. or I Bit Non-Equ I va 1 enc a } 

.BXOR. ! 

+ « + 
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6. 9,2 FORM AMD INTERPRETATION OF BIT EXPRESSIONS. 



6,9.2 £OEIJ-Alia-It^IEE£gEIAIIDB-Q£-ElI-£XEB£SSIQNS. 

A set of formation rules Is used to establish the interpretation of 

a bit expression that contains ti-jo or more bit operators. There Is 

a precedence among the bit operators^ which determines the order in 

vihich the operands are to be combined unless the order is changed by 

the use of parentheses. The precedence of the bit operators is as 
fol lovis: 

+ + + 

I Operator ] Precedence I 

5 .BMOT. 1 Highest 1 

! .BAND. 1 ! 

1 . B R . I I 

J.BEQV.^.BNEQV. or .BXOR.I Lowest \ 

+-.«.—*-,-,«-.»,„— „ -,•.—- .^ . + 

For example^ in the expression 

A .BQR. B .BAND. C 

the .BAND. operator has higher precedence than the .BOR. operator) 
therefore/ the i n terpre Cat i on of the above expression is the same as 
the interpretation of the expression 

A .BOR. (0 .BAND. C) 

The hit CEiiLaods ar©: 

(DBitprimary 

(2) Bit factor 

(3) Bit tern^ 

(^) Bit disjunct 

(5)Bit expression 

The formation rules to be applied in establishing the interpretation 
of a bit expression are in 6.9.2.1 through 6.^.2.5. 

u.'^.2,l Bit-PLiliiaLiilSA 
The hit D£iai-3LiiJS are: 

(1) Bit const ant (4.11.1) 

(2) Symbolic name of a bit constant (8.6) 
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6*0 EXPRESSIONS 
6,9,2,1 Bit Primaries, 



(3) Bit variable reference (2,5) 

C4) Bi t array el ement reference (5,4) 

(5) Bit array refer ance 

(6) Bit array section reference 

(7) Bit function r afar en ce (16,2) 

(8) Bit expression enclosed In parentheses (6«9.2«5) 

6.9.2.2 ail-EactflLjL 

Tha fonns of a hit iRSiLSiL are: 

( 1) B i t pr i mar y 

(2) •BNOT. bit primary 

6.9.2.3 Bit_T££cij, 

Tha forms of e hit t^Lm are: 

(1) Bit factor 

(2) Bit: tarin .8AMD, bit factor 

Thu3> a bit term Is a sequence of bit factors separated by the 

•8AMD, operator. Form (2) indicates that in interpreting a bit 

term contain inn t^-io or more .BAND, operators^ the bit factors are 
combined from left to right, 

6.9.2.4 Bii-.QisiUQiiiji 

Tha forms of a hit JisiiiQCl are: 

(1) Bit term 

(2) Bit disjunct .BOR, bit term 

Thus> 3 bit disjunct Is a sequence of bit terms separated by the 

,8aR, operator. Form (2) Indicates that in interpreting a bit 

disjunct containlny tijo or mora .BOR, operators^ the bit terms are 
combined from left to ri{jht, 

6.9.2.5 Bii«£^E££SSii2Qi 

The forms of a hit iilELsa&lflD are: 
(1) Bit di sjunct 
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6.0 £XPRESSlaNS 
6«9«2»5 Bit Expression. 



(2) Bit expression .BEOV. bit disjunct 

(3) Bit expression .BHECIV# bit disjunct 

(4) Bit expression •BXOR- bit disjunct 

Thus^ a bit expression Is a sequence of bit disjuncts separated by 
either the .BEQV*^ .BMEaV.^ or .BXHR. operator. Forms (2)^ (3)^ 
and (4) Indicate that In interpreting a bit expression containing 
tvio or more .BHQV.^ .BNEQV.^or .BXOR. operators/ the bit disjuncts 
are combinad from left to right. 

6.9.3 VALy£^n£.BII-.fA<lIflESiL-I£ail^i.-AMQ.EXPE£^SIi]IJS 

Thii value of a bit factor involving .BfiOT. Is shown below: 

+ — «+ — ^ 

\ xZ \ .BNOT. x2 ! 
.f. +~^ + 

B"l" ! B"0" I 



; B"o^ 



B"l»' 



+ + 

The value of e bit tenn involving .BAND. is shown below: 
+ +-.. 

+ + — 



B»'l^» 
B"l" 
B"0" 
B"0" 



«., .+ + 

x2 I xl .BAND. x2| 

+ -f 

B"l" 1 B"l" • 
B"0" J B"0" J 
B"l" \ B"0" ! 

B"0" ! B"0" J 

+ + 



Tha value of a bit disjunct involving .BOR. is shown below: 



t 
1 


xl 


— +- 

1 
1 


x2 


— +- 
t 

. ,IL.m. 


xl 


• BOR . 


+ 

x2 I 


1 
1 


B"l'» 


1 
i 


B"l" 


t 

1 




B"l" 


1 
1 


1 
1 


B"l'» 


t 

1 


B"0" 


1 

1 




B"l" 


1 
1 


1 
1 


B"0" 


1 

1 


B"l" 


1 

1 




B"l" 


1 
1 


1 
1 

+- 


B"0" 


1 

1 


B"0" 


1 
1 




B"0" 


1 
1 

+ 



The value of a bit expression involving .BEQV. is shoMn below: 
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6,9.3 VALUE OF BIT FACTQRSji TERMS^ AHO EXPRESSIONS 



+ + + • + 

] xl ; x2 J XI .BEOV. x2; 
.J. + + «.+ 

! B"l" I B"l»' ! B"l»' ! 

i 

t 

I 
I 
I 



\ B"l" \ B"0" \ B"0" ^ 

! B"0" ! B"l" { B"0" « 

\ B"0" I B"0" I B^n" I 

..}.-„. + . +« — : : — + 



The value of a bit axpression Involving •3HEQV. or •BXOR. is shown 
below: 

+ ^ + + + 

; xl ! x2 Jxl •BNEQAy, x2! 

I xl I x2 I Kl .BXCR. x2l 

^-. + ^+ + 

\ B"l" 1 B"l" J B"0" 

J B"l" ! B"0" J B"l" J 

! B"0" I B"l" I B"l" I 

! B"0" 1 B"0" S B"0" J 

6.-). A IiII«(inLisiAtiI«£X£E£SSiai:^. 

A hii unQSJiaiii £XIl££Saii2a is a bit expression in which each primary 
is a bit constant? the symbolic name of a bit constant? or a bit 
Gonstant expression enclosed in parentheses. Mote that variable^ 
arr?iy element^ and function references are not allowed. 

An £ii£Dii5iJ bit constant expression is a bit constant axpression 
excepti 

(1) selected elemental intrinsic functions are allowed^ when 
referenced vilth constant arouments^ 

(2) seljcted array-valued Intrinsic functions are allowed. 

The list of allowed elemental and array-valued Intrinsic functions 
is implementation dependant • 
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7,0 STATEMENT CLASSIFICATION 

Each statement is classified as executable or nonexecutable, 
Executable statements specify actions and form an execution sequence 
in an ex^rjoutabla program* Nonexacut abl e statements specify 
characteristics/ arrangement^ and initial values of data? contain 
*5ditino information; specify statement functionsi classify program 
unitsj and specify entry points viithin subprogramst Nonexecutable 
st-Jtements are not part of tiie execution sequence* Nonexecutable 
statements may be labeled^ but such statement labels must not be 
used to control the execut i on sequence • 

7,1 EiiECUIAaLE-SIAIEliliLil^ 

The folloviing statements are classified as exaculable: 

(1) Arithrietlc^ logical^ statement label (ASSIGN)^ bit> Boolean^ 
and character assignment statements 

(2) Unconditional GO TOj assigned GO T0> and computed GO TO 

statorne;nts 

(3) Arithmetic IF and logical IF staterrionts 

(4) Block IF/ ELSE Ifj ELSE/ and END IF statements 

(5) COriTIMUE statement 

(6) STOP and PAUSE statements 

(7) DO statement 

(8) READ/ WRITE/ PRINT/ PUNCH/ ENCODE, DECODE/ BUFFER IN/ and 
BUFFER OUT statements 

(9) RHVIIiiD/ BACKSPACE/ EMDFILE/ OPEN/ CLOSE/ and INQUIRE 

statements 

(10) CALL and RETURN statements 

(11) ALLOCATE and FREE statemc-nts 

(12) LoDlcal WHERE/ Block WHERE, OTHERWISE/ and ENDWHERE 
statements 

(13) IDENTIFY statement 

(14) FORALL statement 

(15) END statement 

CONTROL DATA PRIVATE 



Control Data Corporation Standard FQRTPsAM 



7-2 
83/06/30 



7,0 STATEMENT CLASS IFICATIOH 
7,2 NOMEXi^CUTABLE STATEMENTS 



7,2 MQLljiX£CUlAaL£-.SIAl£a£UlS 

The foHoHino statements are classified as nonexecutable: 

(1) PROGRAMv FUMCTIOM^ SUBROUTINE^ EMTRY, and BLOCK DATA 
statements 

(2) DIMErJSIQHj COMMON^ EQUIVALENCE^ IMPLICIT^ PARAHHTER^ 
EXTERNAL/ IMTRINSIC, and SAVE statements 

(3) INTEGER/ REAL^ DOUBLE PRECISIOM, COMPLEX/ L0C7lCAL> BIT/ HALF 
PRECISIOM/ BOOLEAll/ and CHARACTER type-statements 

(4) DATA statement 

(5) FORfUT statement 

(6) Statajiient function statement 
(73 NAMELIST statement 

(8) ROVIWISE statament 

(9) INTERFACE -and END INTERFACE statements 
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B,0 SPECIFICATIOM STATEMENTS 

Thara are t«?]alv6 kinds of specification statements! 

(1) DIMENSION 

(2) EQUIVALtMCE 

(3) COHHGM 

(4) INTEGER^ RBMs DOUBLE PRECISIOIb HALF PRECISION, COMPLEX, 
LOGICAL, BIT, BOOLEAN, and CHARACTER type-statements 

(5) IMPLICIT 

(6) PARAMETER 

(7) EXTERNAL 

(8) INTRINSIC 

(9) SAVE 

(10) ROWWISE 

(11) Procedure interface information, INTERFACE and END INTERFACE 

(12) VIRTUAL 

All specification statements are nonexecutable. 
B.l QIiiti!4Siaii_SIAIEN£l:!I 

A DIMENSION statement Is used to specify the symbolic names and 
dimension specifications of arrays. 

Th>j form of a DlMEilSIOM statement is: 

DIMENSION 3id) C>2(fl)3,., 

^•ihare ench ijCi) is an array declarator <5«2). 

Each symbolic name b appearing in a DIMENSION statement declares a 
to be an array in that program unit* Note that array declarators 
r<iay also apnear in COMMON statements, and type-statements. Only one 
appearance of a symbolic name as an array name in an array 
declarator in a proi3ra?ii unit Is permitted. 
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8.0 SPECIFICATION STATEMENTS 
B.2 EQUIVALaNCE STATEMENT 



8 . 2 £nUIi/AL£ii£E«SIAI£IlE^I 

An EQUIVALSMCE statement is used to specify the sharing of storage 
units by ti-io or mort^ entitles In a program unit. This causes 
association of the enti ties that share the storage units* 

If the equivalenced entities are of different data types^ the 

EQUIVALENCE statement does not cause type conversion or Imply 

mathematical equivalence. If a variable and an array are 

equivalenced^ the variable does not have array properties and the 

irjrray does not have tha properties of a variable. 

8-2.1 £QaM-nE_Aii.£QyiVAL£H££-SIAI£Ii£MI 

The form of an EQUIVALENCE statement Is: 

HQUIVALEHCE (QlisD CWniiii)!... 

where each oiisi Is a list (2*11) of variable names^ arrey element 
nanies^ array namesj and character substring names. Each list must 
contain at least two names* Names of dummy arguments of an external 
procedure in a subprogram and allocatable arrays must not appear in 
the list. If SL varisbia name or army name is also s function name 
{16.5.1)j» that name must not appear in the list. 

Each subscript expression or substring expression in a list Diisi 

muzz be an oxtendsd integer constant expression. 

8.2.2 £QUI^Ai.£tlC£-ASSQClIAIiaiil . 

An EQUIVALENCE statement specifies that the storage sequences of the 
fintlties whose names appear in a list nii^i share the same first 
storage unit. This caustjs th?i association of the entities In the 
list Diilt and may cause association of other entities (18*l), 

^'5 . 2 . 3 £i3yiVAL£NC £.D£.£liIIII£2„aF^Qi£EEEEtiI-n££5 

An entity of any type may be equivalenced with entities of other 
types. The lengths of the equivalenced entities are not required to 
be tho samo. Hoijever^ alignments^ as specified by the user> must 
conform with the alignments as shown in the following tables Table 
6: 
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8.0 SPSCIFICATION STATSMENTS 

B.2,3 EQUIVALENCE OF EMTITItS OF DIFFERENT TYPES 



ALIGNMENT RiQUIREHENTS FOR 
E0UIVALENCE{X1/X2) 



,f-. «., + . + .-.-.-+-.^ — .^ — + . 

1 x2 1 Integer^ Real^l 5 S 

I 1 Double J Half J Character* Bit 

1 'preci si on^ ! prec is i on ' J 

' xl } Compl ex> J } J 

1 • Logical^ ! 1 S 

i 1 Boolean • 1 I 

• ,... _. _ -,.— ■-• ■ ■ _.,__. ^ ,. 1 _,__.. _ — • -_'-•___-- 


J Intecjer^ Real i J J 1 5 

1 Double \ Mumeric ' Numeric '.Numeric J Numeric 

! precision.* J « I J 

I Comp 1 exj ! ! 1 J 

! Logical^ 1 •' 1 ? 

t Bool a an 1 J ' \ 


1 !1ilf procisioni Nuniaric 1 nu^iier i c \ numeric \ numeric 

,1. ,,..,,_ ,1 ,,,, ■ . ,_ 1 _,. ... , ,„ ,„ ■ f • B. ,_i i_ n _. 


I J : Half- I ; 

1 Charactar J Numeric \ numeric I Character! Character 

1 \ ! Half- i ? 
{Bit J Numeric ' numeric { Charpcterl Bit 



— + 



+ + + + + + 

An EQUIVALENCE statement specifies that the storage sequences of the 
character entities whose names appear In a list Qiist share the same 
first character storage unit. This causes the association of the 
entities in the list ciisl and may cause association of other 
untitiss (IQ.l). Any adjacent characters In the associated entitles 
may also have the same character storage unit and thus may also be 
associated* In the example: 

CHARACTER A'.'-Aj B*4;f C(2)*3 
EQUIVALENCE (A,C(l))j (B,C(2)) 

the association of A^ B^ and C can be graphically illustrated as: 

!01J02{03',04J05106!07J 

I — """A — I 

!— C(l) — I— C(2) — ! 
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0.0 SPECIFICATION STATEHENTS 

8.2.4 ARRAY MAMES AMD ARRAY ELEMENT NAMES. 

a. 2, 4 AaaAI-[lALlE^-ALlQ-ASEAY.£LE!i£^I-L!M]E^, 

If 3n array element name appears Jn an EQUIVALENCE statement^ the 
number of subscript expressions must be the same as the number of 
dinionsions spGciflad in th« array declarator for the array name* 

The use of an array name unqualified by a subscript in an 
EQUIVALENCE statement has the same effect as using an array element 
name that IvJentifias the first element of the array. 

8.2.5 EESiai£IlDtiS^a!i-£QyiVALEI:lC£_SIAIE0£UI5- 

An EQUIVALENCE statement must not contain virtual (IDENTIFY) array 
nanies^ automatic array namesi or allocatable array names. 

Alignments^ as specified by the us^r^ must conform with the 
alignments as shown in Table 6« 

An EQUIVALENCE statement must not specify that the same storage unit 
is to occur more than once In a storage sequence. For example^ 

DINEHSinN A(2) 

EQUIVALENCE (A(1)^B)> (A{2)jB) 

Is prohiblt^^d^ because It Hould specify the same storage unit for 
A(l) and A(2). An EQUIVALENCE statement must not specify that 
consecutive storage units are to be nonconsecut i ve • For example^ 
the folio vflng is prohibited! 

REAL A(2) 

DOUBLE PRECISION D(2) 

EQUIVALENCE (A{1)^D(1))^ (A(2)/D{2)) 

3.3 CQ!iMQli«SIAI£M£MI 

The COMMON statement provides a means of associating entities in 

different program units. This allows different program units to 

-iefine and reference the seme date without using ©rgumantsj* and to 
share storage units. 

For COMMON the comp I 1 er wi 1 I a M ocate storage in conformance with 
requirements as specified In the following tables Table 7! 
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ALIGNMENT R^QUI REfiEMTS 

FOR carsMQN 

+„ — -.-. — -. —.—+-.-« — , . — -+ 

I « I 

I t 1 



TYPE \ 8aUMDARY J 

+ + — -+ 

1 Intejer • ' 



' RacI '- 



I 

I fS y 3 I I 1 

I Dble precision I Numeric J 

I CompI ex I ' 

; Logical \ J 

1 Boolean ' ! 

+— .- — + ' -+ 

1 Half pracislon J Hal f-numer I cl 
+ + — + 

1 Character J Character J 

+ « + -. + 

I Bit \ Bit 

+ + + 



B.3,1 £QELl^a£-.A_i:QHI:lQM-SIAI£li£MI . 
Tho form of a CQMF.QM staternent Is: 

cnimoN c/Ci2i23/3 aiist i:c>3/E£i23/ nilsii... 

Hheres nh Is a common block name (19. 2.1) 

Qlisi is a list (2»11) of varl afa I e names> array namesj and 
irrsy declarators. Only one appaarance of 3 symbolic 
name as a variable narre^ array name^ or array declarator 
is permitted in all such lists within a program unit. 
Mamas of dummy arguments of an eKtern?il procedure in a 
subprogram must not appear In the list. If 3 variable 
name Is also a function name (16.5.1)^ that name must not 
appear in the list. 

Each omittEjd nh specifies the blank common block. If the first siil 
is omitted^ the first two slashes are optional. 

In C!ach COMMOM statement^ the entities whose names appear in an 
niist following a block name Qh are declared to be In common block 
Sil. If the first Qb Is omitted^* all entities whose names appear In 
thst first Diisil are specified to be In blank common. Alternatively^ 
the appearance of two slashes with no block name between them 
declares th^i ^ntltl^s nhose names appear in the list niist that 
follows to be In blank common. 
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B,3,l FORII :iF A COnnOH STATEMENT. 

Any common block name c^ or an omitted £^ for blank common may occur 
more than once in one or more COHHON statemsnts in a program unit. 
The list ailsi following each successive appearance of the same 
common block name is treated as a continuation of the list for that 
common block nam e. 

8.3.2 £Q[l!lQli_IiLI}£li^aiDRAfiE«a£2y£tlC£. 

For each common blocks a niiomflQ iiiaSli S.tj2iai31 SS£lUiiQ££ Is formed as 
f I I ows: 

(1) A storage sequence Is formed consisting of the storage 
sequ3nces of all entitles In the lists nXist for the common 
block. The order of the storage sequence is the same as the 
order of the appearance of the lists Diist in the program 
unit. 

(2) The storage sequence formed in (1) is extended to include all 
sfcoraas units of any storage sequence associated with it by 
equivalence association. The sequence may be extended only 
by adding storage units beyond the last storage unit. 
Entitles associated 'Jith an entity In a common block are 
considered to be in that common block. 

a. 3.3 SiZE-.nE«4-£QIlrlQN-.BLD£li. 

Tha s.lzsi. at b CfifflaaQ ijiack is the size of its common block storage 
sequence^ including any extensions of the sequence resulting from 
equivalence association. 

Within an executable program/ all named common blocks that have the 
same name must be the same size. Blank common blocks within an 
executable program are not required to be the same size. 

9.3.4 £QtmQli„ASSOCIAIIQtl. 

Within an executable program* the common block storage sequences of 
all common blocks nith th^ same name have tha same first storage 
unit. Within an executable prografn/ the common block storage 
sequences of all blank common blocks have the same first storage 
unit. This results in the association (18.1) of entities in 
different program units. 

8.3.5 IlI£E£S£H££S_IL£IliE£H-NAM£Il_.£QMQbl-.Aiii2-BLAM-CDili:lI31^ 

A blank common block has the same properties as a named common 
blocks except for the fo I I owing? 

(1) Execution of a RETURN or END statement sometimes causes 
entities in namad common Mocks to become undefined but never 
causas entitles In blank common to become undefined (16.8*4). 
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8,3,5 DIFFERENCES BET'WEEN NAMED COHMON AND BLANK COMMON 

(2) Named common blocks of the SQm^ name must be of the same sizo 
In all projram units of an executable program In which they 
appear^ but blank common blocks may be of different sizes. 

(3) Entities in named common blocks may be initially defined by 
means of a DATA statement In any program unlt> but entitles 
In blank common must not be initially defined (Section 9). 

0.3.6 E£SIRi£IIQliS.a^l-.CQ^li3Dy-4H^.EayL^i4L^!Ja£. 

An EQUIVALENCE statamant must not cause the storage sequences of two 
different common blocks in the same program unit to be associated. 
Equivalence association must not cause a common block storage 
sa<ju9nce to be extended by adding storage units preceding the first 
storage unit of the first entity specified in a COMMON statement for 
the common block. For example^ the f o 1 I owl ng is not permitted: 

COMMON /X/A 
REAL B(2) 
EQUIVALHHCE (A>B(2)) 

Virtual (IDENTIFY) arrays^ automatic arrays^ and allocatable arrays 
n^y not be specified In a COMMON statement. 

B.4 II££=SIAl£M£blIS 

A type-statement Is used to override or confirm implicit typing and 
may specify dimension information. 

Tho appearance of the symbolic name of a constants variable^ arrays 
-external function^ or statement function in a type-statement 
specifies the data type for that name for all appearances In the 
program unit. Within a program unltj* a name must not have its type 
explicitly specified more than once. 

A type-statement that confirms the type of an intrinsic function 
whose name appears in the Specific Nams column of Table 5 is not 
required^ but Is permitted. If a generic function nanr.e appears In a 
type-statement* such an appearance is not sufficient by itself to 
remove the generic properties from that function. 

Tho name of a main program^ subroutine^ or block data subprogram 
must not appear In a type-statement, 

3.^.1 Biii^BnnL£ANi_AIJQ>.AEIItlIJEIK-IYP£=2IAI£tI£t2l2 

An INTEGER* REALj. DOUBLE PRECISION^ HALF PRECISION/ COMPLEX^ 
LOGICAL^ BIT/ or BOOL'^AN type-statement is of the form 

tvo V C/ v3 . . . 
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a.^.l BIT^ BOOLEAH/ AND ARITHMETIC TYP E-STATEflENTS 

H h ^2 r e : 

t^R is one of INTEGER^ RBALr DOUBLE PRECISION, HALF 
PRECISION, COHPlEX, LOGICAL, BIT, or BOOLEAN 

i Is a variable name, array name, array 
declarator, symbolic name of a constant, 
function name, or dummy procedure name 
{19,2,11)* 

B,4.2 aidAaA£IES«IIE£=2IM£MtlI. 

Th2 form of a CHARACTER type-statement Is! 

CHARACTER C^iSD C, 13 nam C*Dafil3««« 

vjhere: naa Is of one of tha forms J 

B C{£i)3 l^lQQl 

v, is a variable name, symbolic name of a constant, function 
name, or dunmy procedure name 

a is an array name 

B<d) is an array declarator 

ij£Q is the length (number of characters) of a character 
variable, character f^rray element, character constant 
that has a symbolic name, or character function, and Is 
called the i^nnih S£££if icaiiUUt isn is one of the 
f 1 1 OH i n j! 

(1) An unsljned, nonzero. Integer constant 

<2) An extended intesisr constant expression (6«1«3«1) 
enclosed In parentheses and with a positive vaiue 

(3) An asterisk in parentheses, (*) 

A lanjth i£jD. immediatoly follonlng the siord CHARACTER is the length 
specification for each entity In the statement not having its own 
length specification. A length specification immediately following 
m ontity Is the length specification for only that entity* Note 
that for an array, the length specified Is for each array element. 
If a length is not specified for an entity, its length is one. 

An entity declared in a CHARACTER statement must have a length 
specification that Is an extended integer constant expression, 
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a. 4,2 CHARACTER TYPE-STATEMENT, 

unless that antlty is an externa! function^ a du^my argument of an 
external procedurej* or a character constant that has a symbolic 
name. 

If a dummy argument has a iso of (*) declared^ the dummy argument 
assumes the length of the associated actual argument for each 
reference of the subroutine or function. If the associated actual 
argument is an array name^ tha length assumed bj' the dummy argument 
Is the length of an array element in the associated actual argument 
array. 

If an external function h3s a isQ of i^^) declared in a function 
subprogram^ the function name must appear as the name of a function 
in a FUMCTIQH or EMTRY statement in the same subprogram* When a 
refarance to such a function Is executed^ the function assumes the 
fenoth specified In the referencing program unit. 

The length specified for a character function in the program unit 
that references the function must be an extended integer constant 
expression and must agree with the length specified in the 
subprogram that specifies the function. Note that there always is 
agreement of length if a i§D of (*) is specified in the subprogram 
that specifies the function. 

If a character constant that has a symbol Ic name has a iej} of {*) 
declared^ the constant assumes the length of Its corresponding 
extended constant expression In a PARAMETER statement. 

The length specified for a character statement function or statement 
function dummy argument of typs character must be an extended 
integer constant expression, 

8.5 lH£LlC.LI-.SlAl£!JEtlI 

An IMPLICIT statement Is used to change or confirm the default 
implied integer and real typing. 

Th4: form of an IMPLICIT statement is: 

IMPLICIT iya (a C:^3l...) C^tvo {^ C>5],..)3... 

Hh^re: tlB is one of INTEGER^ REAL^ DOUBLE PRECISIorb HALF 

PRECISION^ COMPLEX^. LOGICAL^ BIT^ BOOLEAN., or CHARACTER 

ii is either a single letter or a range of single letters in 
alphabetical order. A range is denoted by the first and 
last letter of the rancie sepfuatcd by a minus. Writing a 
range of latters al - a2 has the same effect as writing a 
list of the single letters al through ^2. 
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8,5 IMPLICIT STATEMENT 

ISQ is the length of the character entities and is one of the 
f ollowinu ! 

(1) An unsigned* nonzero integer constant 

(2) An Qxtanded integer constant expression {6«1«3.1) 
enclosed in parentheses and with a positive value 

If ieD is not specified* the length is one. 

An IMPLICIT statement specifies a type for all variables* arrays* 
symbolic names of constants* external functions* and statement 
functions that bngin Hith any letter that appears in the 
specification* either as a single latter or Included in a range of 
letters. IMPLICIT statements do not change the type of any 
intrinsic functions. An IMPLICIT statement applies only to the 
program unit that contains it. 

Type specification by an IMPLICIT statement may be overridden or 
confirmed for any particular variable* array* symbo I i c name of a 
constant* external function* or statement function name by the 
appearance of that name In a type-statement* An explicit type 
specification in a FUMCTIOM statement overrides an IMPLICIT 
statement for the name of that function subprogram* Note that the 
length is also overridden when a particular name appears In a 
CHARACTER or CHARACTER FUMCTION statement. 

Within the specification statements of a program unit* IMPLICIT 

statements must precede ai 1 other specification statements except 

PARAMETER statements* A program unit may contain more than one 
IMPLICIT statement. 

The same letter must not appear as a single letter* or be included 
in a range of letters* more than once in all of the IMPLICIT 
statements i n a pr ogr am un i t. 

8, 6 EAEAHEIEE^SIAIELIElil 

A PARAMETER statement Is used to give a constant a symbolic name. 

Tho form of a PARAMETER statement is: 

PARAMETER (n=e C*£=el..,) 

^ihcjrei o is a symbolic name 

S, is an extended constant expression (6.7) 

If tho symbolic nama n js of type intejer.? real* double precision* 
half precision^ complex* or Boolean* the corresponding expression £ 
must be either an extended arithmetic constant expression (6.1.3) or 
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an extended Booleanconstantexpresslon (6«7.3), If thesymbolic 
noiiis 2 is of type character^ bit> or logical^ the corresponding 
expression e must be an extended character constant expression 
(6.2.3)^ an ax ton dad bit constant expression? or an extended logical 
constant expression (6.4«4)? respectively* 

Each £ is the svmiiQiis q^d1£ af a Gansi^Qt that becomes defined with 
the value deterniined from the expression 3 that appears on the right 
of the equals^ in accordance with the rules for assignment 
statements (lO.l^ I0t2/ and 10.4). 

Any symbolic name of a constant that appears in an expression^ must 
have bean defined previously in the same or a diffsrant PARAMETER 
statement In the same program unit. 

A symbolic name of a constant must not become defined more than once 
inaprogramunit* 

If a symbolic name of a constant is not of default Implied type> Its 
type must be specified by a type-statement or IMPLICIT statement 
prior to its first appearance in a PARAMETER statement. If the 
length spacifiad for th£ symbolic name of a constant of type 
character Is not the default length Of one^ Its length must be 
specified in a type-statement or IMPLICIT statement prior to the 
first appearance of tha symbolic name of the. constant. Its length 
rrust not be changed by subsequent statements Including IMPLICIT 
statements. 

Once such a symbolic name is defined* that name may appear in that 
prograrn unit in any subsequent statemant as a prinary in an 
expression^ in a DATA statement (9,13^ or as the real or imaginary 
part of a complex constant. It may also appear in a C$-directive as 
a primary in a expr-assion or as a paramriter value. A symbolic name 
of a constant must not be part of a format specification* 

A symbolic name in a PARAMETER statement may identify only the 
corresponding constant in that program unit. 

8*7 EZIEELlAL-^IAIEilEHI 

An EXTERNAL statement is used to identify a symbolic name as 
representing an extt-rnal procedure or dummy procedure? and to permit 
such a name to be used as an actual argument. 

The form of an EXTERNAL statement is: 

EXTERNAL B£Q<2 C?o£f2G3..« 

where each JiLQQ. is the name of an external procedure* dummy 
procedure^ or block data subprogram. 
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Appearance of a name in an EXTERNAL statement declares thst name to 
be an external procedure name^ dummy procedure name^ or block data 
subprogram namet If an external procedures name or a dummy procedure 
n«me is used as an actual argument in a program unit^ It must appear 
in an EXTERNAL statement in that program unit* Note that a 
statement function name must not appear in an EXTERNAL statement* 

If an i ntr i nsi c functi on name appears In an EXTERNAL statement in a 
program unit;» that name becomes the name of some external procedure 
and an intrinsic function of the same name is not available for 
reference In the program unit. 

Only one appear anca of a symbolic name In all of the EXTERNAL 
statements of a program unit is permitted. 

3.8 iiiiaiusic.siAisaELii 

An INTRINSIC statement is used to identify a symbolic name as 
representinj an intrinsic function (16,3)« It also permits a name 
that represents a specific Intrinsic function to be used as an 
actual argument. 

The form of an INTRINSIC statement is: 

IMTRINSIC fkin C^fuBl-*- 

Hhere each fyo is an intrinsic function name. 

Appearance of a name In an INTRINSIC statement declares that name to 
be an Intrinsic function name. If a specific name of an intrinsic 
function is used as an actual argument In a program unit^ it must 
nppQiir in an INTRINSIC statement In that program unit. The names of 
intrinsic functions for type conversion ( INT^ IFIXj» IHINT^ IDINT^ 
FLOATS SNGL^ MALF^ EXTEND, REAL> DBLE^ BOOL^ BTOL> LTDB, CMPLXi 
ICHAR^ CHAR)^ lexical relationship (LGE^ LGT^ LLEj LLT) and for 
choosing the largest or smallest value (MAX, HAXO, AMAXl, DfiAXl, 
AMAXO^ MAXl.. MIN, MINO, AMINl^ DMINlj AMINO, NINl) must not be used 
as actual arguments. The names of Intrinsic functions for 
perforriilnj loglcpJ operations (AND^ OR^ XOR/ EQV^ NEQV) also must 
not be used as actual arguments. 

The appearance of a generic function name In en INTRINSIC statement 
docs not cause that name to lose Its generic property. 

Only one appearance of a symbolic name In all of the INTRINSIC 

statements of a program unit is permitted. Mote that ^ symbolic 

nania must not appear in both an EXTERNAL and an INTRINSIC statement 
i n a progr am 'jn i t. 
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8,9 SM£_SIAimEMI 

A SAVE stat-:}ment is used to retain the definition status of an 
entity after the execution of a RETURN or END statement In a 
subprogram. V/ithin a function or subroutine subprogram^ an entity 
specif! ad by £ SAVE statement does not become undefined as a result 
of tha execution of a RETURN or END stat^srnsnt in the subprogram. 
flowGver^ such an entity in a common b I ock may become undefined or 
redefined in another program unit. 

The form of a SAVE statejaent )si 

SAVE [a Cj.al •• .:i 

vihare esch 3 is a namsrl common block name preceded and followed by a 
s I ashji a variable name^ or an array name. Redundant appearances of 
an item are not permitted* 

Dummy argument names^ procedure names^ and names of entities In a 
comrion block must not appear in a SAVE statement. 

Virtual (IDEISTIFY) arrays^ fsnd automatic, ^rrsys may not be specified 
in a SAVE statement. 

A SAVE statement without a list is treated as though it contained 
the names of al I al I oviab le items in that program unit. 

The appearance of a comii^on block naae preceded and follovied by a 
slashin a SAVE statement has the effectof specifying all of the 
entities in that common block. 

If a psrtiaular common block nsme Is specified by a SAVE statement 
in a subprogram of an executable program^ it must be specified by a 
SAVE statement in every subprogram in vihich that common block 

app.ears. 

A SAVE staternont Is optional In a main program and has no effect. 

If a named common block is specified in a SAVE statement in a 
subprogram^ the current values of th entities in the common block 
storage sequsncvi (3.3.3) at the time a RETURN or END statement is 
executed are made available to the next program unit that specifies 
that Common block n ime In the execution saquence of an executable 
pr ogr am. 

If a named common block is specified in the main program unit^ the 
currant values of tha common block storage sequence are made 
available to each subprogram that specifies that naried common blockj 
a SAVE statement In the subprogram has no effect. 

The definition status of each entity in the named common block 
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storage sequence depends on the association that has been 
astiibHsh'Tid for the common block storage secjuence (18,2 and 18»3). 

If a local entity that is specified by a SAVE statement and is not 
in a common block is in a defined state at the time a RETURN or END 
statement is axacuted in a subprogram^ that entity is defined v-Jith 
the same valU2 at the next reference of that subprogram. 

The execution of a RETURN statetnent or an END statement within a 
subprogram causes all entities within the subprogram to become 
undefined except for the following: 

<1) Entitles specified by SAVE statements 

(2) Entities in blank common 

(3) Initially dafinod entitles that have neither been redefined 
nor bacome undefined 

(4) Entities in a named common block that appears in the 
subprogram and appears In at least one other program unit 
that is referanclng/ either directly or indirectly^ that 
subprogram 

B.lO EQliHISE-lIAIEUElil 

An array name appearing in a ROWWISE statement declares that array 
to be stored in rov^ order <5«5«3)« 

Th3 form of a ROWWISE statement Is: 

ROWWISE ac^ai... 

Hhare each a Is an array name 

An array name that is d*3clared in a ROWWISE ststcsment must appear 
-lith an array declarator in a type specif I cat I on> DIMENSIDN^ or 
COMMON statement. . 

6,11 PRQQilEILiSE-IliliEEAaE^INEaSIJAIIDtJ 

The form of a procedure interface information block is: 
INTERFACE 

C iaie££a£S=il£S£Li£li2D 



END INTERFACE 
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where the form of an iaifiLf 2££=li£S££isti2i3 is: 

il£2dSL=SiaieiD£Di is a SUBROUTINE or FUNCTION 

statsmant 

2.i2££sii:i£iaJ:i£!Qzs.t^i:5n:eQl:£ describe the dummy arguments and 

functional results if app I i cables 
of the procedure 

A procedure iQisLfaca infuimStiaD iiiocis specifies information about 
an externai subprogram. Specification of an external subprogram In 
an interface information block is optional except for user 
array-valued functions which must be specified if they are to be 
referenced. The specification Information must include the numbers 
order/ and type of dummy arguments^ vihethsr a dummy argument is an 
array (whether it is rowwise or columnwise must be specified) or 
not. For array-valued functions^ tha shape of the function result 
must be sp2c if I ad. 

A subroutine or function name appearing in a SUBROUTINE or FUNCTION 
statement of an Interface description may be an external or dummy 
procedure In the program unit cont<:,lning the Interface description. 
If the name is an external procedure name., the interface information 
given by the interface description overrides (for the program unit 
containing it) the interface information appearing In the actual 
program unit defining the external procedure* 

A procedure interface information block may appear where "Other 
Specification Ststemants" may appear. 

Procedure interface Inforrnatlnn wsy be unavailable for an external 
procedure because the external procedure is specified by means other 
than a FORTRAM subprogram. 

a. 12 yiglUAL^SIAIEtlENI 

A VIRTUAL statement is u:;ed to specify tha symbolic names and number 
of dimensions of virtual arrays to be used in IDENTIFY statements. 

The form of a VIRTUAL statement is: 

VIRTUAL ^(d)C^^(d)3... 

where each adl) is an allocatabia array dec I ar ator ( 5 , 2.2 .3 ) . 
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Each symbolic name j appearing in a VIRTUAL ststement declares ja to 
be a virtual array in that program unit> and defines the rank of a 
throucjhout the program unit. 

Only one appearance of a syjnbollc nanie as an array name in an array 
declarator in a p^o^3^am unit is permitted. 
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^.0 nAn.siAISIiEtll 

A 9ATA statenent Is used to provide Initial values for variables^ 
arrays^ array elements/ and substrings* A DATA statement is 
nonexGcutabl i) and rri'iy appear in a program unit anynhers after the 
spec If icat Ion statements^ If any. 

All initially defined entities are defined when an executable 

program begin^i execution* All entitiss not Initially daflned^ nor 

associated with an initially defined entity, are undefined at the 

beginning of execution of an executable program^ 

^.1 £GEH.n£_^_QAIA-SIAI£Li£Ni 

The form of a DATA statenent ]si 

DATA Qiist /£list/ CC^l Diist /£lisl/3»«t 

vihere! niisi is a Mst (2.11) of variable names.» array names# array 
element names^ substring names, and implied-DD lists 

Q.LiS.h is a list of the ^orms 

whercj a is on?j of the forms: 
c 

£ is a constant or the symbolic name of a constant 

£ is a nonzero^ unsigned. Integer constant or the 
symbolic name of such a constant* The £*£ form is 
equivalent to i successive appearances of the 
constant c* The r (^C, £], , , ) form is equivalent to £ 
successive appearances of the list iiC>£3*«* in 

9,2 I}MA«SIAIEI3EiiI»S£SISIC.IIQHa 

Names of dummy arguments, functions^ virtual arrays^ end entities In 
blank common (including entitles associated vH th an entity in blank 
common) must not appear in the list aiisi* 

There must bii the s.ima numbor of items specified by esch list niist 
and its corresponding list Giisi;. There is a one-to-one 
correspondence between the Items specified by Qilst and the 
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constants specified by ciist such that the first item of nii^t 
corresponds to the first constant of siisi> etc. By this 
correspondence^ the initial value is est abl ished and the entity Is 
initially defined. If an array name viithout a subscript )s In the 
list^ there must be one constant for each element of that array. 
Tha orderinj of arr^y elements Is determined by the array element 
subscript value (5.3.4). 

The type of the niis± entity and the type of the corresponding £lisi 
constant must agrei^ when either Is of type character^ bit^ or 
logical. When the Qilsi entity is of type integer^ reali double 
precision^ half pr^cision^ Boole8n> or coinpIeK^ corresponding jsiiSLi 
constant must pIso be of type Integers realj double precision^ half 
precision^ Boolean^ or complexj if necessary^ the fiii^i constant is 
converted to the type of the Dils.!: entity according to the rules for 
arithmetic conversion (Table 4)j» or Boolean conversion (10.6). Mote 
that<» if an aiist entity Is of type double precision and the i:li£t 
constant is of type real> the processor may supply more precision 
derived from the constant than can be contained in a real datum. If 
an Diisl: entity is of type double precision and the fiXisi constant 
is of type haif precision^ the processor may supply more precision 
derived from the constant than can be contained in a half precision 
d'^tym. If an Dilsi; entity is of typo real and the uiisi constant Is 
of type half precisionj^ the processor may supply more precision 
derived from the constant than can be contained in a half precision 
datum. 

Any variable,. array element/ or substring may be Initially defined 
except for: 

(1) an entity that Is a dutnmy arguments 

(2) an entity in blank common^ which includes an entity 
associated with an entity in blank common^ or 

(3) a variable in a function subprogrsni whose name Is also the 
name of the function subprogram or an entry in the function 
subprogram^ or 

(4) an vintity that is a virtual f?rray* 

A variablejf array element^ or substring must not be initially 
defined more than once in an executable program. If two entities 
'ire associated/ only one may be initially defined In a DATA 
statement in the sane axecutable program. Mote that zero sized 
arrays and zero length substrings are initially defined and 
therefore must not be defined In a DATA statement. 

Each subscript expression in the list Qiisi must be an extended 
integer constant expri^ssion fixcept for I mp I I sd-DO-var i ah I es as noted 
in 9.3. Each substring expression In the list niisi must be an 
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9,2 DATA STATEMENT RESTRICTIONS 

axtanded Intejer constant expression. 

'^.B ill£LIi:arnQ_Il:i«A-.DAIA^SIAI£iJ£iiI 

ThB form of an impllad-Dn list in a DATA statement Is: 

( iiiisl:> 1 = ml^ ID?- 1^123 ^ ) 

jhore: diisi is a list of array element names and Implled-DD 
I i sts 

i is the name of an integer variablOf celled the 

illl> B^'^ Ol3 are each a scalar extv^ndod integer constant 
express ion/ except that the exprass Ion may contain 
I mp I i ed-DD-var i ab les of other Implied-DO lists that have 
this implied-DO list within their rangest 

Tha range of £in lmpJied~DO list Is the list iiii£t# An iteration 
count and the values of the impMed-DO-v ar i ab 1 e are established from 
alj» 1112/ and ni3 exactly' as for a DO-loop (ll.lO)j. except that the 
iteration count must be positive. When an implled-DO list appears 
in a DATA statement/ the list items in dli^i are specified once for 
3«ch Itsration of the implied~DO list with the appropriate 
substitution of values for any occurrence of the impl i ed-DO-var I ab I e 
i« The appearance of an i mp 1 i ed-DO-var i ab I e name in a DATA 
statement does not affact the definition status of a variable of the 
same name in the same program unit. 

Each subscript expression in the list liiisi must be en extended 
Integer constant expression/ except that the expression may contain 
i mp I i ed-DQ-var I ab 1 es of ImpHed-DO lists that have the subscript 
<2xpresslon nithln thalr ranges. 

Tha folloHing is an example of ^ DATA statement that contains 
I mp 1 i ed-DO I i sts : 

DATA (( X(J/I)/ I = l/J)/ J=l/5) / 15*0. / 

9,4 (:UARACI£E-.£QI^SIAtiI-.ItJ-A-I}AIA-SIAlEUEI4I 

An entity in the list cilsl that corresponds to a character constent 
must be of type character. 

If the length of the character entity in the list Diisi is greater 
than the length of Its corresponding character constant/ the 
additional rightmost characters in the entity are initially defined 
vj It h b I a n k c h 'i r a c t a r s • 

If the length of the character entity in the list nil^i is less than 
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the length of its corresponding character constant^ the additional 
rightmost chriracters in the constant are ignored* 

Mota that initial dafinltion of 8 character entity causes definition 
Qf aM of the characters in the entity^ and that each character 
constant initially defines exactly one variablej* array element^ or 
substring. 
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10,0 ASSIdHMEJ^T STATEMEMTS 

Conipietlon of execution of an assfgnnient statement causes definition 
of an entity, except in the case of the IDENTIFY statement. 

Thara are seven kinds of assignment statsinentsJ 
(DArjthmetic 

(2) Loaica! 

(3) Statement label (ASSIGN) 

(4) Character 

( 5) Boo ! ean 

(6) Bit 

(7) Array assignment statements (IDENTIFY and FORALL) 

10.1 AEIiaaEIIC-ASSiatillElil^SI^lEMEbil 

The form of an arithmetic assignment statement iss 

where: v is the name of a variable^ arrays array section^ or array 
element of type Integer^ real^ double precision^ half 
precision^ or complex 

£ is an arithmetic expression or a Boolean expression 

Execution of ^n arithmetic assignment statement causes the 
evaluation of the expression e by the rules in Section 6s conversion 
of a to the type of v> and definition and assignment of x with the 
resulting value, as established by the rules in Table 4. If y is an 
array natiia or an array section name^ the statement }s an liLiitilSiitin 
a££ay ^ssianaBnt siatsmsal ^nd e must be conformable with ^. If y 
is 'ci scalar/ ^ niust ha a scalar. If £ 1 s a scalar and a is an array 
name or array section name^ the scalar value is treated as if it had 
bean ext mflad to an array nith the shape of ^ In vfhich all elements 
have the value e and then assigned. 
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Arithmetic Conversion and Assignment of i2 to ^ 



+ — — , — — + 

1 Type of ^ 1 Value 

4 J As si gned 

,.1 „. ,11 ,11. 1 , , . 1 1 


1 Integer J INT(£) 


; Reai J REALC^) 

1 , , „ „„ .,,■,,',,„,,,, , , , , ., _. ,._ _, 1 .. 


I Double Precision J DBLLMij) 


\ Half Precision ] MALE (js) 


1 Complex J CMPLX{£) 

+ + 



The functions in the "Value Assigned" oo I umn of Table 4 are generic 
functions described in Table 5 (16,10), 

10.2 LDGKAL-ASSISaiJELlI-nAIEIiEl^I 

The forsn of a loglcdl assignment statement is: 

where: £ is the name of a logical variable^ logical arrays logical 
array section^ or logical array element 

2 \s 2 lojical or bl t express i on 

i^xecution of a logical assignment statement causes the evaluation of 
the logical expression f^ follo^^ad by the assignment and definition 
of V vn th the value of e. Note that e must have a value of type 
logical or hit* If :± is an arr^^iy name or an array section name> the 
statement Is a logical a££a:^ aas.iaQIQ2Qi ^iaiiJIDfiQt and £ must be 
conformabio viith id. If v Is a scalar^ § must be a scalar. If js is 
a scalar and v is an array name or array section name^ the scalar 
yalua is treated as if It had bean axtondad to an array with the 
shape of y. in which all elements have the value £ and then assigned* 
If s is of type bit., e is converted to type logical (BTQKfi)) and 
then ass I jned. 

10 . 3 2IAI£a£IiI_LABEL_AillI£Ii[l£MI_XASSiQtil-.^IAI£tl£llI 
The fom of :i statement label assignment statement is: 

ASSIGN 5 TQ 1 
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10.3 STATUMHHT LABEL ASSIGNMENT (ASSIGIU STATEMENT 

Hhare: ^ is a statement label 

i is rn Integer variable name 

Execution of an ASSIGM statement causes the statement label s to be 
issigned t the Integer variable i. The statement label must be the 
tabs! of a scattiuient that appears in the same program unit as the 
ASSIGM statement* The statement label must be the label of an 
executable statement or a FORMAT statement. 

Execution of a statement label assignment statement Is the only vray 
that a variable may bs defined with a statement label value. 

A variable must be defined with a statement label value when 
referenced in an assigned GO TO stfitament (11.3) or as a format 
idantifier (13.4) in an input/output statement. While defined with 
a statement label value* the variable must not be referenced in any 
other way. 

An integer variable defined with a staternent label value may be 
redefined with the same or a different statement label value or an 
i nteger value. 

10. A Cu^aAQI£E-.ASSIl2iiiLlEiiI-SIAI£aEllI 

The form of a character assignment statement is: 

iL - ^ 

where: v is the name of a character variable^ character arrays 
chflract«r array s«^ction^ character arrsy elements or 
character substring 

R is a character expression 

I:xecution of a charectar assignment stat-snient causes the evaluation 
of the expression B followed by the assignment and definition of }l 
Hith the valus of 2. Mone of the* charactar positions being defined 
in v may be referenced in e. y and e may have different lengths. 
If the length of v is greater than the length of fj^ tho effect Is as 
though e were extended to the right with blank characters until it 
is the same lenjth as ^ and then assigned. If the length of ji is 
less than the length of £> the effect is as though e were truncated 
from the rljht until it is the same length as v &nd then assigned. 
If V is an array name op an array section name^ the statement is a 
sbB£acie£ a££2X assiaQIDSDi SiatSESQi and e must be conformable with 
V, If y is J scalar^ £ must be s scalar* If ^ Is a scaler and )L Is 
an array name or array section name^ the scalar value is treated as 
if it }»ad be^in axt^mded to an ^ir r ay hI th the shape of a in vihJch all 
elements have the value n and then assigned. 
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Only is much of the value of s must ba defined as Is needed to 
define v. In the examples 

CHARACTER A*25 B*4 
A=B 

the assignment A=B requires that the substring B(l:2) be defined* 
It does not roquire that the substr I ng B ( 3:4) be defined. 

If V is a substrings a Is assigned only to the substring. The 
definition status of substrings not specified by v is unchanged* 

10.5 i]yLIIELE-.ASSLaMM£tlI.2IAI£fi£tlI 

The form of a multiple assignment stat^Jment is? 

VI h e r e : 

2£ Is the r\B'^^e of a variable^ arrays array section^ array 
element^ or character substring 

S is an expression. The types of the elements y and the 
i^xpresslon £ must be such that the form: 

is a valid assignment statement for each v in the multiple 

assignment statement. 

t:xecution of a multiple assignment statement causes the evaluation 
of the expression e. After r.ny necessary conversion^ the assignment 
and definition of the rightmost z with value of £ occurs. 
Assignment and definition of each additional y occurs in 
r I jht~to- 1 tjf t ordar. The value assigned to each y Is the value of 
the y Immediately to its rights after any necessary conversion. 

10.6 aLlQLZ:A(i^ASSIi2liLli:L!I-.:SIAI£[lEtlI 

The form of a Boolean assignment statement is: 

V = ;» 



vihere : 



y is the name of a Boolean variables Boolean arrays Boolean 
arrsy saction^ or Boolean array element 

£ is a Boolean expression or an arithmetic expression 
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10.6 BQOLEAM ASSIGMHENT STATEMENT 

Execution of a Boolean assignment statement causes the evaluation of 
the expression s by the rules in Section 6> and the conversion^ 

viss ignrnent^ and dafinjtlon of ^. 

If e is an arithmetic expressions the value assigned to ^ Is 
BOQKti). 

If V is an array name or an array section name* the statement is a 
SiiQiaaQ iiLnai: ^aai-jD^jiiii statsaanl and f^ must be conformable with iL* 
If V is a scalar^ e must he a scalar. If £is a scalar and a is an 
array name or array section names the scalar value Is treated as If 
it had been extended to an array nith the shape of ^ in which all 
elements have the value e and then assigned. 

10.7 BII_.AS^I£Mi3£yi_SIAI£a£tJl 

Th2 forn of n bit assignment statement fsJ 

Hhore: h is the mme of a bit variables bit arrays bit array 
section^ or bit array element 

£ is a bit expression or a logical expression 

Execution of a bit assignment statement causes the evaluation of the 
bit expression Si followed by the assignment and definition of ^ with 
the valu^i of a. Note that a :nust have a value of type bit or 
logical. If v is an array name or an array section names the 
state.nent Is a hit liLL3.1 iiS.S.iaDQ£at S.t£t£E£Dt and 2. must be 
conformable with it. If ^ is a scalars e must be a scalar. If q is 
■3 scalar and v Is en array name or array section names the scalar 
value is treated as if it had been extended to an array with the 
shapa of v in which all elements have the velue q and thsn assigned. 
If e is of type logicals e is converted to type bit (LTOB(£)) and 
than assijn^id to v, 

10.8 AESAY_A2Sli3tii:lELlI-^IAI£Il£^IS 

lO.e.i lCl£tiII£I-.SIAI£il£tiI 

An IDENTIFY statement allows specification of sections of arrays 
which may consist of logically noncontiguous elements of a parent 
arrays cr which may be skewed with respect to the orthogonal 
dimensions (axes) of a parent array. 

The form of an IDENTIFY statement is: 

IDENTIFY iLlljLll'** ) ^£ (iCsH . . . ) =1 ( sCsinl • • • ) 
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vihcre : 



V \s the identified or "virtual" array name 

L is the host or "parent" array 

i is an unsubscr i pted integer Y ari 2ib I e name to be used as a 
dummy subscript variable in none or more of the linear 
mapping expressions defining v« The set of dummy 
subscript yarlabiss specified In the list (iC*13««.) 
taken in order of appearance in the list define the 
ordinal order of the mapping of v onto a subset of £• 
The number of dummy subscript variables in the list 
defines the rank of v, 

i23 is a scalar-valued integer expression that Is linear In 
the dummy subscript variables. The set of a specified in 
the list {B[^i23««,) defines the mapping of v onto £ In 
terms of the dummy subscr ipt variables. The number of 
iy.pr ess ions in the list (a^C^a] • . • ) must «qu9l the rank 
of the host or parent array £. 

Lv is a ranj« laclsrator. The number of range declarators 
in the Mst^ {£yC^£yl,.,) must equal the number of dummy 
subscript viriobles in the list (ll!^i]«««)> i.e. it must 
equal the rank of ^, 

The range declarator Is of the form: 

i:£lJ]£2 

VI h e r e : 

£l is a lojjer range bound sp3c I f Icat I on 

£2 is an upper range bound specification 



If £l i 



ojiiitted/ It defaults to the value one. A lower or upper 



range hound must be a scalar-valued integer expression. 

The identified array nama \i must hava been pr*iviously declared as an 
array name in a VIRTUAL statement only* x end £ must not be the 
same name. 

The idcntifiod array name v nay appear »JndI mens i oned in a type 
specification statement* but must not appear declared as an array 

name in any specification statement^ other than a VIRTUAL statement. 

The id2ntifi.*id <irr ;iy must be of the same type es the host array. 

An identified array must not be referenced or defined until after it 
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has been "identified" by execution of an 
vjhen referenced in a NANPLIST I/O listt 



IDENTIFY statements except 



Tha nunibar of 
(iC^il. * • ) for 



entries in 
ii must equai 



the list of dummy subscript variables 
the initiai deciared rank of v. 



The dummy subscript variables (iCiil...) are utilized only in a 
formal sense; values assigned to the variables (names) elsewhere in 
thii program unit ara unaltered by tha occurrence of those vsriabJes 
(names) in che IDENTIFY statement. 

The scalai — valued subscript quantities (id[j» id3 • • . ) must be 
niathamat i ca My aqyivalent to expressions of the form 
K0+iixll+is2xl2+*, .+Jinxin in vihich the Jis are scalar integer 
axpress i on;3/ not involving the dummy subscript variablass and the is 
are che duiriiiiy subscript variables used to define the mapping of the 
virtual array to the host array* 

Tha host array l may bo an explicitly declared "real" array op a 
previously identified "virtual" array. 

The host array £ may be an allocated allocatablo arrey. If £ 

subsequently appears In a FREE statement^ then v becomes undefined* 

The host array £ may not be an assumed-size arrays a dummy argument 
arrays or an array-valued function name in the function. 

Tha array £ may hava at most rank scvsn; similarly^ th*3 rank of v 

Moy be at most seven* 



The 
dummy 
of t 
state 
the 
or b 
statm 
state 
a p p e a 
w h I c h 
"dumm 
u till 
gener 
iJi a p p i 
e I eme 
V i r tu 



sea I 
sub 
he 

ment 

mapp 
ecom 

90 tS 

ment 
r i 
the 
y s 
zed 
aW 
ncj 
nts 
a I a 



ar-- 
s c r 
i de 

:r t 

ing 

« 
n 

vi 
ubs 
i n 

a 
f t 

ma 
r ra 



val u 

ipt 

ntif 

he s 
of 

i n d Q 

ith 

The 

the 

rtua 

cr i p 
the 
rep 

he V 

P t 

y ma 



ed sub 
var I abf 
ied ar 
ca I ar-v 

ii onto 
f i n 3 d 

no af 
order 

list 
I array 
t V a r i 

I 1st 
I i cat i o 
irt jal 

a s 
y b e r e 



scr 

es 

ray 

alu 

£• 

dur 
fee 
in 
(iC 

:l 
abl 

of 
n 

arr 
ing 
f er 



ipt 

(iC^i 

. At 
ed su 
Var 
i ng 
t on 
w h i c 

is to 
e " in 
"su 
of t 
ay Is 
I e a 
e n c e d 



quan ti t 
1 ••• ) 

the ti 
hscri pt 
i ab I es 
axecuti 
the map 
h the 
.) de 

be def 
eluded 
bscr ipt 
he rea 

such t 
r r ay e 

but no 



I e 
sp 
me 
fj 
in 
on 
pi 

f i 
in 
in 



ha 
le 

t 



s (IDC 
e c I f y 

of e 
u an t i 
vol ve 

of 
no sp 
dummy 
nes t 
ed a 

the 
quant 

arr a 
t two 
ment 
def i n 



the 
xecu 
ti es 
d in 

sub 

scif 

su 

he s 

nd 

1 ist 
itia 
y £ 

or 

i n 
ed 



• • ) a 
se I ec 

t ion 

(laC^fij 

ID may 
sequen 
ied by 
bscr i p 
pec i f i 
r sf ere 

s" (a 
is imp 
more v 
the ho 
r rede 



I ong 
tion 
f an 
]«..) 

be r 
t ex 

the 
t va 
Cord 
need* 
]...} 
C ^ m 3 . 
lied, 
1 rtua 
s t ar 
f i ned 



wi th the 

jr.app ing 

IDENTIFY 

def i ne 
edef I ned 
ecutabi c 
IDENTIFY 
riables" 
a r i n in 
If a 

i s not 
•*)j in 

If the 
1 array 
ray^ the 



Vfhyn nn i-ksntlfied array or saction of an Identified array Is passed 
as an argun^nt to a subprogram^ only elements within the identified 
"virtual" array or array sction are passed to the subprogram. 
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Gnce defined by an IDEMTIFY statement^ identified arrays may be 
utilized In exactly the same manner as any dec ! ared "real " arrey. 
In part leu I ar^ sin Identified array may be subscripted or sectioned^ 
and an identified array or section of an identified array may be 
passed as an artjument to a subprogram in tha same manner as a 
declared "real" array. 

10. a, 2 EQEALL_:iIAI£tl£tlI 

The FORALL statement is usad to represent an array asslgnrrtent in 
terms of indices* The form of the statement isJ 

FORALL (iQdS2i = £aD£l£E^iDii221 = ££n£l£l •• • C^i£ZI23)st 



VI h e r 8 s 



ind£21 is an in teger var i ab 1 e 

nannij has the form inU i§EC 'L£3 3 uhere isl.> i£2^ end 1^3 
are integer expressions that do not involve any 
indicss of the statamentj if iijl is absent it is as 
if it were present with the value 1, ie3 must not be 
zero . 

l^liB Is a scalar loglcel expression^ which rray Involve the 

indie est The effect is as if is.ZR is evaluated for 

all Index combinations prior to the execution of the 

statement sl» 

si is an assignment statement of the form J 

a£S=£X£ 

Hher e: 

ass is an array element or an array section* It must 
reference all the indices 

:]v;i2 is an expression 

An index can take only the values: 

l!ll + l£Xiii3ji<=1^2^ • •• ^INT( (ni2-ml+n!3)7l23) 

where oil^ lll2^ and qS are the values of i£l^ Isi^-f and IqS on entry to 
the statejiient. An Index for which INT ( {in2--ial+is3) /in3 ) ^0 cannot take 
any values* Eixecution of the FORALL statement consists of the 
ovaiU;ition in cny order of f>H2 ^or all valid combinations of index 
values for which ie^E is true^ followed by the assignment of these 
values to th:) cor r "jspondi n g entities 2i21« If i£I12 Is omitted^ It Is 
as }f it were present with value .TRUE. The statement must not 
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cause any entity refersnced ?,s all or part of a£s to be assigned a 
value more than once. The scope of the indices is the FORALL 
stotement Itself and any uses of their names outside ths statement 
are references to separate entitles. The indices must not be 
altered by a function referenced during the evaluation of £^a« 
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11.0 CONTROL STATEMENTS 

Control state(nents may be used to control the execution sequence. 
Thare ara sixteen control statements: 



(1) 


Unconditional GO TO 


(2) 


Computed GO TO 


(3) 


Asslgncid GO TO 


(4) 


Arithmetic IF 


(5) 


Loj leal IF 


(6) 


Block IF 


(7) 


ELSE IF 


(3) 


ELSE 


(9) 


END IF 


(10) 


00 


(11) 


CONTINUE 


(12) 


STHP 


(13) 


PAUSn 


(14) 


END 


(15) 


CALL 


(16) 


RETURN 


(17) 


Logical WHERE 


(18) 


Block WHERE 


(19) 


QTHSRWISE 


(20) 


ENDWHERE 



The CALL and RETURN statements are described in Section 16. 
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11.1 UMCOMDITIorUL GO TO STATEMENT 

11.1 UNanti[)iiiniiAL_l}Q^IQ_SIAI£MrMI 

Tha form of an unconditional 60 TO statement Is: 

GO TO S 

^-ihere £ is tha statem'Snt label of an executable statement that 
appears in the same program unit as the unconditional GO TO 
statement. 

Exaoutlon of an unconditional GO TO statement csuses e transfer of 
control so that the statement identified by the statement label is 
e X e c u t e d n e X t « 

11.2 CQri£yi£i)„£Q^ia^smii!i£I^I 

The form of a computed GO TO statement is' 

GH TO (a C^ii].. *) lyl ^ 

where: e is an arithmetic or Boolean scalar expression 

£ is the statamont Itibel of an executable statement that 
appears in the same program unit as the computed GO TO 
statement. The same statement label may appear more than 
once in the same computed GO TO statement. 

Execution of a computed GO TO statement causes evaluation of the 
expression e. The value obtained is converted to type integer^ If 
necossary^ by application of the Intrinsic function IMT to yield an 
integervaluei. 

11.3 ASS:iatiiI)»G0«IQ^5IAI£a£tlI 

The form of an assigned GO TO statement is: 

GO TO i CC^3 (£ C^sl. ..)! 

where: 1 is an integer variable name 

S is the statement label of ^n e^tecutable stetement that 
appears in the same program unit as the assigned GO TO 
statement* The same statement label may appear more than 
once in the same assigned GO TO statement. 

At the ti le of execution of an assigned GO TO statement^ the 
variable i must be defined with the value of a statement label of an 
fjxocutsb 1 1^ statement that ^^opsars In the same program unit. Note 
that the variable may be defined with a statement label value only 
by an ASSIGN statement (10.3) in the same program unit as the 
risslgned GO TO stat^jmant. The execution of the assigned GO TO 
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statement causes a transfer of control so that the statement 
Identified by thst statement label Is executed next. 

If the parenthesized list is present/ the statement label assigned 
to i must bo on^^ of the statamant iabels in the list. 

11.^ AalI^^l£II£:_I£-.^IAI£^!£NI 

The form of an arithmetic IF statement is! 

IF {^) S.1 f 2,^ y S.3 

where: s is an integer^ real/ double precision/ half precision/ or 
Boolesn scalar expression 

Sl/ s2/ and ^3 are each the statement label of an executable 

statament that appears in ths same program unit as ths 
arithmetic IF statement. The same statemsnt label may 
appear more than once In the same arithmetic IF 
statement. 

Execution of an arithmetic IF statement c^^uses evaluation of the 
ftxprasslon :i followed by a transfer of control* The statement 
identified by ^1/ s2/ or 5.3 is executed next as the value of £ is 
less than zero/ equal to zero* or greater than zaro/ respectively* 
If e Is a Boolean expression/ the value of INT{£) Is used. 

11.5 LLl£KAL^iE-^IAI£!3£LlI 

The form of a logical IF statement isJ 

IF (a) si 

whore: e is a scalar logical expression 

^t is any exoc-rtable statemsnt except a DO/ block IF/ 

ELSE IF/ li^LSE/ END IF/ END, block WHERE/ OTHERV/ISE/ 

END WHERE/ logical WHERE/ or another logical IF 

statomsnt* 

Execution of a logical IF statement causes evaluation of the 
expression e. If the value of e is true/ statement si is executed. 
If the valuj of jj Is false/ statement ^t Is not executed and the 
execution sequence continues as though a CONTINUE statement were 
nxQGutcui. 

Mote that the execution of a function reference in the expression £ 
of a logical IF statement is permitted to affect entities in the 

statement st» 
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11.6 RLQCil_I£«aiAI£H£iiI 

The block IF statement is used Hith the END IF statement and^ 
optionaUvj* the ELSE IF and ELSE statements to control the execution 
sequence. 

The form of a block IF statement isJ 

IF (2) THHN 
vihere e is a scalar logical expression* 
11,6.1 lEzLEVEL. 
The JF.zlgyel of a statement s. is 

Ql - d2 

where q1 is the number of block IF statements from the beginning of 
the prograiii unit up to and including ^> and d2 is the number of 
END IF statements in the program unit up to but not including s« 

The IF~i€JYel of evary statement must be zero or positive. The 

IF-levsl of each bJock IFf ELSE IF.f ELSE^ and END IF statement must 

be positive. The IF-level of the END statement of each program unit 
must be zero. 

11. 6, 2 lEraLaaii. 

An lEzhiacK consists of all of the executable statements that appear 
foilo'^^ino th<i block IF st^^tement up to> but not including* the next 
ELSE IF.» ELSE/ or END IF statenent that has the same IF-leyel as the 
block IF statement. An IF-block may be empty. 

11.6.3 £X£CLlIIDLl«0£-A-aLI]aK-l£^5lAlEilEI]I. 

Execution of a block IF statement causes evaluation of the 
expression s. If tho value of £ is truej* normal execution sequence 
continues with the first statement of the IF-block. If the value of 
e is true and the IF-block is empty? control is transferred to the 
next EMD IF sts^temont that has the sa^e IF-level as the block IF 
statement. If the value of q is falser control is transferred to 
the n:5Kt ELSE IF* ELSE* or EMD IF statement thzt has the same 
IF-level rss the block IF statement. 

Transfer of control into an IF-block from outside the IF-block is 
prohibited. 

If the execution of the last statement in the IF-block does not 
result in a transfer of control* control is transferred to the next 
END IF statement tns^t has the sama IF-level as the block IF 
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11.6.3 £XEClITIOH OF A BLOCK IF STATEMENT. 

statement that precedes the IF-block. 

11.7 ELS£-IE-.SIAIEil£biI 

The form of an ELSE IF statement is? 

ELSE IF (£) THEN 
vihere £ is a scalar logical expression. 

11.7.1 1:LSE-IF=BLQ£1^. 

An £LSE lEzUlflfiK consists of a| 1 of the executable statements that 
appear fo I I OH i no the ELSE IF statement up to, but not includingji the 
next ELSE IF^ ELSE^ or END IF statement that has the same IF-level 
as the ELSE IF statement. An ELSE IF-block may be empty. 

11.7.2 EX£(:iiIiaLl-fl£-Aiil-£LS£«IE-5IAI£LiE!JI. 

Execution of an ELSE IF statement causes evaluation of the 
expression £i« If the value of ^ is true^ normal execution sequence 
continues with the first statement of the ELSE lF~block. If the 
value of e is true and the ELSE IF-block is empty^ control is 
transferred to the next EMD IF stat<3?nent that has the same IF-level 
as the ELSE IF statement. If the value of £ is falser control is 
transferred to the next ELSE IF^ ELSE/ or END IF stetement that has 
tha same IF- level as the ELSE IF statssnent. 

Transfer of control into an ELSE IF-block from outside the ELSE 
IF-block is prohibited. The statement labels if znys of the ELSE IF 

fstatejnent rnust not be referenced by any statement. 

If execution of the last statement in the ELSE IF-block does not 
result in a transfer of controls control is trflnsfarr^Jd to the next 

EHD IF statorient that has the same IF-level as the ELSE IF stetenent 
that precedes the ELSE IF-block. 

11.0 £U£^SIAIEL1£^1I 

The form of an ELSE statement Is J 

ELSE 

11.8.1 LL2£i:aLnCl<. 

An £L^£.hi2ii]S consists of all of the executable statements that 

appear follovnng the ELSE statement up toji but not including/ tho 

next END IF statement that has the same IF-level as the ELSE 
statement. An ELSE-block may be empty. 

An BHD IF statement of the same IF-level as the ELSE statement must 
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appear before the appearance of an ELSE IF or ELST: statement of the 
same IF- I eve i • 

11.8.2 cXECUIIQLl-aE^M-.£LS£-.2IAim£{lI. 

Execution of an ELSE statement has no effect. 

Transfer of control into an ELSE-block from outside the ELSE-block 
Is prohibited. The statement labelj If any/ of an ELSE statement 
must not be referenced by any statement. 

Tha forn of an END IF statement isJ 

aND IF 

Execution of «n END IF statement has no effect. 

For each block IF statements there must be a corresponding END IF 

statement in the same program unit. A iSQ£££SESndiDi3 £liD IE 

EtiitSsj^ot is the next END IF statement that has the same IF-levsl as 
the block IFstatement. 

11.10 OO-ilAIELlENI 

A DO statement Is used to specify a loop^ called a HQzlQOB* 

The form of a DO statenient is' 

DO s C,fl 1 = £l5 £2 f,.e3] 

V'jhrtre: a Is the statam<;nt label of an executable statement. The 
statement identified by 2.9 called the isioin^l ^iaifiSfiQi 
of tha DG-loopi must follow the DO statement In the 
sequence of statements within the same program unit as 
the DO statement. 

i is the name of an integors raal^ half precision^ or 
double precision variable^ ca Had the HD-^aniahl^ 

el.* eZj and e3 are each an integer^ realj half precisions 
double pracfslons or Boolean scalar expression 

The terminal statement of a DD-loop must not be an unconditional 
on T0.» assJjned Gl T'b arithmatic IFs block WMERE> OTHERWISE/ 
END WHlREs lojical VJHEREs block IFs ELSE iFs ELSEs END IF, RETURN, 
STOP, END, or DO statement. If the terminal statement of a DO-|oop 
is a logical IF statement, it may contain any executable statement 
ijxcept a DO, block IF^ ELSE IF, ELSE^ END IF, END, or another 
lojical IF scateiTient- 
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11.10.1 a4a£3^QE„il-.QD=LQQ£. 

The L^D£1£ Q.I ^ Q.QzisiQ.B consists of all of the executable statements 
that appear follonlny ths DO statement that specifies tha 00-|oop^ 
to and Including tha tcnnlnal statement of the DO-|oop. 

If a DO statement appears v^ithin the range of a DO-loop^ the range 
of the DO~loop specified by thst DO statement must be. contained 
entirely vHthln tha range of the outer DO-loop. More than one 
DO-loop may have the same terminal statement. 

If a DO statement appears viithin an IF~block/ ELSE IF-block> or 
LLSE-block> the range of that DO-<oop must be contained entirely 
vjithin that IF-block# ELSE IF-bJocK^ or ELSE-block/ respectively. 

If a block IF statement appears within the range of a 00-loopj the 
corresponding fcMD IF statement must also appear vjithin the range of 
that DO-loop. 

11.10.2 ACiivE^AtiQ-It^ACIIiiF^an=LDnE:S. 

A DO-loop Is either active or inactive. Initially inactive* a 
DO-loop becomes active only when its DO statement is executed. 

Hnce activej» the on~loop becomes inactive only nhens 

(1) Its iteration count is tested (11.10,4) and determined to be 
zeroy 

(2) Its DO-variablcj becomes unds fined or Is redefined by means 
other than the incrementation described in 11.10.7* 

(3) it is in the range of another DO-loop that becomes inactive* 

(4) a RETURN." STOP* or END strteRsnt is executed In its program 
un i tj or 

(5) it is in the range of another DO-loop whoso DO-stotement is 
^xacut^d. 

Execution of a function reference or CALL statement that appears In 
the range of a DO-loop does not cause the DO-loop to become 
inactive. Note that transfer of control out of the range of a 
DO-loop does not Inactivate the DO-loop. However* the DO-loop 
becomes inactive if the DO-variable becomes undefined or is 
r fi '^ f i n a d out s i d e th e range. 

yh2n £ DO- 1 OOP beco"ies Inactive* the DO-variable of the DO-loop 
retains its last defined value* unless it has become undefined. 
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11.10.3 £X£(IUIlH£-A-.Da-.SIAI£^£tiI. 

Th2 affect of executing a DO statement Is to perform the following 
steps in sequence: 

(1) The iaitiai EiJLaasiSL e1> the t^LElBBl UBLEBSiifiL m2.9 and the 
iQCLeiasQiaiiHQ 2i.2£2IDet;£r j23 are established by evaluating £lj 
ii2j» an»j ^» respact i yely^ Includjn^^ If nacesssry^ conversion 
to the type of the DQ-variabre according to the rules for 
arithmetic conversion (Table 4). If £3 does not appear^ a3 
has a value of one. 013 must not have a value of zero, 

(2) The DG-var i ebl a becomes defined h i th the value of the Initial 

pararieter al* 

(3) The iteration count is established and Is the value of the 
Qxprossion 

MAX { I NT ( ( aa-al+Ea) /o3 ) .» mt2 ) 

vjhere: mic is the mi ni mum-tr lp~count parameter, mis has s value of 
either one or zero^ and is established at processor 
invocation. The value of atG. fnay be dynamically modified by 
tha riln Imuin-tri p~count control directive (3.7.4). 

Mote that the iteration count is equal to the value of mifi 
vihenever i 

ml > ji!2 and ii]3 > 0^ or 

al < fli2 and jd3 < 0. 

At the completion of execution of the DO statement/ loop control 
processing begins. 

11.10.4 LQaE-aCLJIBQL-.£aD£E52Itl!2. 

Loop control processing determines If further execution of the range 
of the DO~|oop is required. The iteration count is tested. If it 
is not zaro,» exacutlon of the first statement in tha range of the 
DO- loop begins. If the iteration count is zero^ the DO- loop becomes 
Inactive, I P^ as a result^ all of the DO-loops sharing the terminal 
statement of this DQ-loop are inactive^, normal execution continues 
vrrth oxecution of the next ex?3cutab|e statement following the 
ternlnal staten^ont. However^ if some of the DO~loops sharing the 
terminal statement are active^ execution continues with 
incrementation process in j^ as doscri bed in 11.10.7. 
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11.10.5 EXECUTION OF THE RANGE. 

liao.5 £X£CyiiaLl_OE-Id£«SAIJ£E* 

Statements In the range of a Dfl-loop are executed until the terminal 
statement is reached. Except by the incrementation described In 
ll.10.7j the DO-varlable of the DD-loop may neither be redefined nor 
become undefined during execution of the range of the DD-Joop. 

11.10.6 I£SllIliAU5IAI£Il£LlI-£2$EQyiiatil. 

Execution of the terminal statement occurs as a result of the normal 
execution sequence or as a result of transfer of control j» subject to 
tha restrictions in 11.10.8. Unless execution of the terminal 
statement results in a transfer of control execution then continues 
viith incrementation processing^ as described in 11.10.7. 

11.10.7 ili(iamEliIAIIQLi-£Ea££SSIL12. 

Incrementation processing has the effect of the following steps 
performed in sequence: 

(1) The DQ-variable^ the Iteration counts and the incrementation 
parameter of the active Dn~loop whose DO statement was most 
recently ex^outod^ are selected for processing. 

(2) The V:ilue of the DO-v?.riable is i ncremunted by the value of 
the incrementation parameter id3. 

(3) ThQ iteration count is decremented by one. 

(4) Execution continues with loop control processing (11.10.4) of 
the same DG-loop whose iteration count was decremented. 

An c^ampla illustrates the above: 

N = 

DG 100 1=1^10 

J = I 

DO 100 K=1j3 

L = K 

100 M=N+1 

101 CQMTINUE 

After execution of the above statements and at the execution of the 
CONTINUE statement/ 1=11, J=10, K=6, L=5> and N=50. Also consider 
the following example (i!]lfi = 0): 

N = 

on 200 1=1/10 
J=I 

DO 200 K=5/l 
L = K 
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200 M=il + 1 

201 CONTINUE 

After execution of the above statements and at the execution of the 
CO?^TIHUE statement/ 1=11^ J=10/ K = 55 and N=0. L Is not defined by 
the above statements. 

11,10.8 IEA!i^££E-IMia-iaE-.RAIli2£»Q£-A«Qa=iI]i]P. 

Transfer of control Into the range of an inactive DO-Joop is not 
permitted. Transfer of control to any executable statement In the 
range of an active DO-l oop is permitted unless th£^ statement is also 
jn the range of an inactive DO- loop or the transfer of control Is 
not permitted by the rules for execution of an IF-block> ELSE 
IF-block/ ELSZ-block> WHERE-block> or GTHERWISE-b I ock . 

11.11 f:QelIItiyE„SIAI£ii£iiI 

The form of a CONTINUE statement is: 

CONTINUE 

Execution of a CONTINUE statement has no effect. 

If the CONTINUE statement is the terminal statement of a DO-|oop/ 
tht:; next statement axacuted depends on the result of the DO-loop 
incrementation processing (11.10.7). 

11.12 SID£-SIAI£dEtlI 

Thy form of a STOP statement Is! 

STOP Cq3 

where d Is j strinu of not niora than five digits^ or is a character 
constant. 

Execution of a STOP statement causes termination of execution of the 
tjxacutable program. At the time of termination^ the digit string or 
character constant is accessible. 

11.13 £AiJ5£-2lAI£IJ£LlI 

The form of a PAUSE statement is: 
PAUSE Cni 

ifhere q is a string of not more than five digits^ or is a character 

constant. 

Execution of a PAUSE statement causes a cessation of execution of 
. , CONTROL DATA PRIVATE 



11-11 

Control Data Corporation Standard FORTRAN 

83/06/30 

11.0 CONTROL STATEMENTS 

11.13 PAUSE STATEMENT 

the executable progranu Execution is resuniable. At the tinie of 
cessation of execution,* the digit string or character constant is 
accessible via display to tht; operator,* and also to the user if the 
latter is in co^nmuni cat I on nlth the processor during execution. 
Resumption of execution is not under control of the program. If 
execution is resumed^ the execution sequence continues as though a 
CQfiTIMUE statems^nt ijere executed. Sa« the reference manual for the 
appropriata operetlng system raijardlng the irieans for ind I cat Ing that 
execution should be resumed. If the program is executing 
i nter act i ve I y • the user causes execution to resume by entering an 
i npiit . li na cons i St i ng of the characters GO in columns one and two. 
The alphabetic case of the letters In GO is not significant. 

11.14 £ti!2-.SlAI£a£tlI 

The END statement Indicates the end of the sequence of statements 
and comment lines of a program unit (3.5). If executed in a 
function or subroutina subprogram^ it has the effect of a RETURN 
stnteinent (16.B). If executed in a main program^ it terminates the 
execution of the executable program. 

The form of an END statement is: 

EMD 

An END statement is written only in columns 7 through 72 of an 
initial line. An END statement must not be continued. No other 
statemont In a program unit may have an initial line that appears to 
be an END statefnent* 

The last line of every program unit must be an END statement, 

11.15 L0l2lUL-i!y£ai::-5IAIEiiii:liI 

The logical WHERE statement is used to control the assignment of 
values in an array assignments and to control the evaiustion of 
expressions in the array assignment statenientj» according to the 
value of a logical array expression. 

The form of a logical WHERE statement Isi 

WHERE (l£J£) 41 

vihere: 

ilii is an array ."ixpr ess i on of type logical or bit 

si is an array assignment statement 

Exocution of a logical WHERE statement has the same effect as 
ijx i-'cut i on of the sequence 
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11.15 LOGICAL WHERE STATEMENT 

WHERE (iae) 
END WHERE 

11.16 aLQCli„iiH£E£-SIAIEIi£!JI 

The block WHERE statement Is used with the END WHERE statement^ and 
optionally the OT!iERWISc statement to control the assignment of 
values In a block of array ssslgnment statements.* and to control the 
evaluation of expressions In array assignment statements^ according 
to the value of a logical array expression. 

The form of a block WHERE stetement is! 

WHERE (iai^) 

where: las is an array expression of type logical or bit 

11.16-1 viLJESErLOEL 

The VILi£S£rieii£i of a statement s js 

nl - n2 

vihere nl is the number of block WHERE statements from the beginning 
of the progrsm unit up to and Including £^ and n2 Is the number of 
END WHERE statements in the program unit up to but not including s« 

The WHfcRIf-Nivel of every staternent ^iust be zero or one. Note that 
this precludes nesting BLOCK WHERE statements. The WHERE-level of 
each block WHERE^ OTHERWISE, and END WHERE statement must be one. 
Tho WHERE-level of tha EMD statement of each prografii unit must be 
zero. 

11.16.2 iiiJ£Ei2raLa£K 

A HidiiEEzbiasli consists of all of the executable statements that 
appear folloviing the block WHERE statement up to^ but not including^ 
the next OTHERWISE or END WHERE statement that hss the same 
WHERE- 1 eve I as the block WHERE statement* All of the executable 
statements in a WHERE-block must be array assignment statements that 
do not involve an array-valued function reference. In each array 
assignment statement of the form }£= C'£= 3. . .£2^ )L must have the same 
shape as i^e* No statement in a WHERE-block can be the terminal 
statement of a DO. A WHERc-block may be empty. Transfer of control 
into a WHERE-block Is prohibited. 

11.16.3 £Xi£IUIiatl-2E>.A-IiLQ£!i_ii[i£££-SI^IEai^!JI 

Execution of a block WHERE statement causas evaluation of the 
expression ia£ • The statements in the WHERE-block are executed in 
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normal execution sequence. when an array assignment statement is 
executed under control of a block WHERE statements the semantics 

of the statamsnt ere as if it nere executed as follows: 

(1) The evaluation of the expression e takes place as if it were 
2valuated for all elements '>jhare is^ is true and the result 
of the evaluation assigned to the corresponding element of y* 
At points whera i£i§ is falser the value of the corresponding 
element of )l is not altered and It is as if the expression £ 
was not eval uated. 

(2) Assignment stiteinents between a WHERE and an SNDWHERE 
(Including an optional OTHERWISE block) are executed in 
normal execution sequence. Values defined in }i in one 
^ssijnment stat^'ment i^'ay be referenced or defined In 
subsequent assignment statements. 

The value of ias is not affected by the execution of statements in 

tha WHERe-hlock, 

Transfer of control into a VIHERE-block Is prohibited. 

11.17 aiUERHiSE-SIAIE^EHI 

The form of an OTHERWISE statement is: 

OTHERWISE 

11.17.1 .QIld£EHI2EzaLQ(:ii 

An niy£^MISErELD(Ill consists of all of tha sx^icutable statements that 
appear Poll'.iviino the OTHERWISE statement up to^ but not including* 
the £MD WHERE statement that has the same WHERE-level as the 
OTHERWISE statement. All of the executable statements in an 
OTMERWISE-b lock n^ust be array assignment stateinents that do not 
involve an array-valued function reference. In array assignment 
statements of the form y=[v=]...ej x must have the same shape as 
iii£. No statement \n bts OTMERWISE-b 1 ock cen be the terminal 
statement of a DO. Transfer of control into an OTHERWI SE-b 1 ock is 
prohibited. An OTHERWI SH-b 1 ock may be empty. 

11.17.2 £X£C:UIIQtl-Q£._M-£!IH££HISE_SIAIIid£M 

Execution of an OTH-ZRWISE statement causes the statements In the 
OTHERWISE-b I ock to be executed in normal execution sequence. When 
an array assignment statement is executed in an OTHERWISE block/ the 
semantics of tha su;?.te{nent are as if it i<!6re executed as follows! 

(1) The -'Valuation of the expression e takes place as if it were 
evaluated for all elements nhere Ib^.. is falsa end the result 
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of the eyaluation ^issigned to tha corresponding element of v. 

At points where ia^ is true> the value of the corresponding 

element of }L is not altered and it is as If the expression £ 
was not evaluated, 

(2) Assloninent statements between a Wl-IERE and an EMDWHERE 

(Including an optional OTHERWISE block) are executed in 

normal execution sequence. Values defined in y in one 

assigninent statesnent rnay be referenced or defined In 
subsequent assignment statements. 

The value of ias is not affected by the execution of statements In 
the OTHERWISE-bJock, 

Transfer of control into an OTHERWISE-bl ock is prohibited. 



11.18 £bl!2«ki:d£Ei£-.SIAI£i:lEtiI 

The form of an HND ViHERS statement is: 

£ND WHERE 

Execution of an HND WHERE ststement h^s no effect. For each block 
WHERE statements there must be a corresponding END WHERE statement 
in the same program unit, A aoL£SS2nQdj,Qrj fl\Q Htd£EE StSi^ffiUni is 
the next EHD WHERE statement that- has the SBme WHERE-level ss the 
block WHERE statement. 
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12,0 ARRAY STORAGE ALLOCATION 



There are two axBcutable statements that control allocation of 

storage .for arrays:. 

(1) ALLOCATE statement 

(2) FR~H statement 

12.1 ALLQCAIE-SIAIEIiEMI 

The ALLOCATE statement is used to allocate storage for an 
yllocatabie array. The form or j?.n ALLOCATE statenent is: 

ALLOCATE ^dljMl *•* 

Hhxjrs: 3d has the form of a constant or adjustable array declaratoro 

The array names appearing in ad must have been specified to be 
allocatable arrays. The dirrenslon bound exprassions ere subject to 
the same limitations as In an ar r ay decl ar ator^ except that array 
element references are permitted to appear. No allocatable array 
nam9. In an ALLOCATE statement may be referenced in a primary of any 
expression within tha sarae ALLOCATE statement. For example^ 

ALLOCATE A (lO^EXTENTCA^l) )jB(SIZ£( A)) 

is prohibited. Tha dimension bound expressions in jd are evaluated 
at the time of execution of the ALLOCATE statement. The values of 
th^ dimension bound expressions datfirmine the sizes of the 
correspond In J dl mans Ions for the a Hoc at able array and the upper and 
loner bounds of the dimensions. The number of dimensions is 
determined by the allocatable array declarator and must correspond 
vjith th^j number spacifi ed In 3d« If the iillocatable array Mas 
declared with an explicit lower bound ^Xs then the corresponding 
loNrir bound of the array declarator ad must specify the same value 
An allocatable array must not be defined or referenced if it is not 
currently allocated. 

Aft^M' axacutlon of an ALLOC ATti statenent for an array> the 
properties of dimension sizoj^ lower and upper dimension bounds and 
array size are established. However,* any entities in the dimension 
bounds expressions may be redefined or become undefined with no 
affect on tha above mentioned properties. Immediately after an 
array is allocated the values of all of the array elements are 
undefined. 

An ALLOCATE stateni^nt nay appear in a ?ia I n program^ subroutine^ or 
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function subprogram. At the beginning of oxacution of an executable 



program^ all aHocatafole arrays 
allocated". All allocatable arrays 
by an ALLOCATE and that have not 
fr^ijed automatically if execution of 
viere allocated Is terminated by 
statement^ and the allocatable array 



have a state of "not currently 
that have been allocated storage 
been subsequently fraed> will ba 
the 3ubprograi^< In which they 
execution of a RETURN or END 
name is not specified in a SAVE 



Ail ocati ng 



current ly 



statement {explicitly or implicitly), 
ill located array is prohibited-. 

12.2 £S££-SIM£iJ£M 

Th2 FRHE statement, causes the storage for previously allocated 
arrays to be released^ The form of a FREE statement is: 

FREE B^^al • • • 

Hharai £ Is the name of an allocatable array previously allocated by 
execution of an ALLOCATE statement. Results are undefined if a is 
not currently al located. 



CONTROL DATA PRIVATE 



13-1 
Control Data Ccrporatlon Standard FORTRAN 

83/06/30 

13,0 IMPUT/OUTPUT STATEHEHTS 



13,0 INPUT/OUTPUT STATEMEHTS 

Input statenif^nts provide the means of transferring data froni 
external media to internal storage or from an internal file to 
internal storage* This process is called L2BSllnn» Output 

statements provide the means of transferring data from internal 
storage to external media or from internal storage to an internal 
file. This process Is called vjciiion. Soma input/output statements 
specify that editing of the data is to be performed. 

In addition to the statements that transfer dataj there ere 
'uiKiliary input/output statements to nian I pu I ate the external medium^ 
or to Inquire aboyt or describe the properties of the connection to 
the external medium. 

There ars fourtoen Input/output statements! 

(1) READ 

(2) WRITE 

(3) PRINT 

(4) OPEN 

(5) CLOSE 

(6) INQUIRE 

(7) BACKSPACE 

(8) ENDFILE 

(9) REWIMD 

(10) PUMCH 

(11) BUFFER in 

(12) BUFFER OUT 

(13) ENCODE 

(14) DECODE 

The READ/ VIRITe.f PRINT^ PUHCH> BUFFER irb BUFFER OUT^ ENCODE^ and 
DECODE statements are dal^ i£2QS.f£L iQGUlilGytBili slai£ffl£ais (13.8). 
The OPEN/ CLOSE;' IIIQUIRO^ BACKSPACE/ ENDFlLH^ and REWIND statements 
'^^Q aUXiiiiiLl' incutZllUiElUt S-tatilinnEltS (13. lO). The BACKSPACE^ 
ENDFILE/ and RcVIIND statements are file fiosliiQulDil iDfiUi/fiyiEilt 
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siatsiasQis {i3*io.4}« 

I3,i EE£QEDS 

A £e£0£d is a sequence (Z.l) of values or a sequence of characters. 

For example^ a pynchecl card is u;;yally considered to be a record* 

Hovievar^ a record does not necessarily correspond to a physical 
entity* There are three kinds of records^ 

(1) Formatted 

(2) Unforniatted 

(3) Endf i le 

13.1.1 EDEnAIIEQ-EEaQED.. 

A formatted record consists of a sequence of characters that are 
capable of representation In the processor* The length of a 
formatted record is measured In characters and depends primarily on 
the number of characters put Into the record when It is written. 
However^ it may depend on the processor and the externa! medium, 
Tho length may bs zero. Formatted records may be read or i»iritten 
only by formatted Input/output statements {13,8.1). 

Formatted records may be prepared by some means other than FORTRAN; 
for 8xampl3> sonic rtii^nual input device. 

13.1.2 UfilEQEMIIEQ-EElinEn 

An unformatted record consists of a s<5quence of values in a 
procesiior-dopendent form and may contain both character and 
nonch aracter data or may contain no data. The length of an 
unformatted record is measured in processor-dependent units and 
depends on the output list (13.3.2) used yhen it is written^ as v^el I 
as on the processor and the external madlun^. The length may be 
zero. 

The only s t -Jt emonts that r B^.d and v!rit«i unformatted records are 
unformatted Input/output statements (13.8.1)^ BUFFER IN> and BUFFER 
OUT statements {13.15). An unformatted record to be read by a 
BUFFER IN statement or to be written by a BUFFER OUT statement may 
not contain character^ bit or half precision data. 

13.1.3 EMDEILE-EEnaSD. 

An ondfiie record is written by (?n EMDFILE statement. An endf lie 
reoorcj may occur only as the lf?st record of a file. An endf He 
record does not have a length property. 
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13.2 EILES 

A jliis i s a sequence (2.1) of records* 

There ore tvjo kinds of f I less 

(1) External 

( 2) Internal 

13.2.1 EIL£>£Xl£I£Mai. 

At any giYsn tirne^ thera is a processor-determined set of fHes that 
are said to e^i^l for an executable program. A file may be known to 
the processor^ yet not exist for an executable program at a 
parti GUI ar tiirie. For ^xample^ security reasons may prevent a file 
from existlnj for an executable program. A file may exist and 
contain no records? an example is a newly created file not yet 
vir i tten . 

To acSiitg. a tiio. moans to cause a file to exist that did not 
pr evi ous ly ex is t . To dei£i£ a fii£ means to terminate the existence 
of the file. 

All input/output statements may refer to files that exist. The 
IHIUIRE^ aPEiif CLOSED VIRITE^ PRINT^ PUMCH^ BUFFER OUT^ and EMDFILE 
£;tat£ments niay also refer to files that do not exist. 

13.2.2 EIL£_£RQE£RII£S 

At nny givfjn time^ there is a processor-determined siii: of £il£»H5ii 
access anifanilsr ^ processor-determined sq^ of i3iiiaii££l tQLBS.^ and a 
processor-determined sat nf £iiiliw£.(l LtQ.Q.Lsl ls.nsiths. for a file. 

A file may have a namej a file that has a name is called a DBESlI 

jllltl. The nirre of a naivied file is a character string consisting of 

one to thirty-one alphabetic characters or digits. The first 

charactar of a file nsmc must not be a digit* (An alpha character 

Is a letter." upper or loner case^ or one of the characters t.p i # or 

_ Cunderline]. Upper and tower case letters In the file name are 
Interpreted as variants of the same letter). 

13.2.3 EILE-HQS-IIiaU. 

A file that is connected to a unit C13.3) has a position property. 
Execution of certain input/output statements affects the position of 
a file. Cartaln circumstances can cause the position of a file to 
becomein determinate. 

The initi^i EfliDi of a file is the position just before the first 
record. The JifiLiDiQai ELQltit Is the position Just aftar the last 
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record. 

If a file Is positioned within a records that record is the Sii£££nl 

LailEiLdi oth^jf^^i se.> there is no current record. 

Let n be the number of records in the file* If 1< i ^ n and a file 
Is positioned Mithin the ith record or between the (l-l)th record 
and the ith record^ the (i-l)th record Is the BL^2.2.di!12 L&QQL^* If 
n ^ 1 and a file Is positioned at its terminal pointy the preceding 
record is the Qth and last record. If d=0 or if a file is 
positionsd at its Initial point cr within the first record^ there Is 
no preceding record. 

If 1 ^ i <D ^nd a file is positioned nithln the ith record or 
bet'ween the ith and (i+l)th record/ the {i+l)th record Is the D£JSi 
£is£jaLd« I? n > 1 and the file is positioned at its initial points 
the firstrecordis the next record. If ii = or if a file Is 
positioned at its terminal point or v?ithin the nth and last records 
there Is no next record. 

13.2,4 £IL£.Aaa£SS* 

ThiiTs are tvjo n'sthods of accessing the records of an external file: 
sequential and direct. Some files may have more than one allowed 
occiess msthod; oth>3r files may be restricted to one access method. 
For example^ a processor may allov^ only sequential access to a file 
on magnetic tape. Thus* the set of allowed access methods depends 
on the file and the processor. 

The method of accessing the fn» Is determined whan the file Is 
connected to a unit (13. 3. 2), 

An internal file must be accessed sequentially* 

13,2.4,1 SiitiLi£Dl;iai-.A::ci2£iiA 

V/hen connected for sequential access* a file has the following 
properties: 

(1) Th?. order of the records is the order in which they were 
written if the direct access method is not a member of the 
set of allowed access methods for the file. If the direct 
access method is also a member of the set of allowed access 
methods for the flle^ the. order of the records Is the same as 
that specified for direct access (13,2,4,2), The first 
record accessed by sequential access is the record whose 
record number Is 1 for direct access. The second record 
accessed by sequential access Is the record whose record 
number is 2 for direct access^ etc, A record that has not 
beun iiritten since the file Has created must not be read. 



COMTROL DATA PRIVATE 



Control Datd Corporation Standard FORTRAH 



13-5 
83/06/30 



13,0 INPUT/OUTPUT STAJSHENTS 
13.2,4.1 SenU'^ntlal Access* 



(2) The records of the f i I o are either all format feed or all 
unf'orniatted,^ except that the last record of the file may be 
an endf i I e record • 

(3) The records of the fjla must not bG read or written by direct 
access Input/output statarnents (13 .S.!), 

13, 2, 4. 2 ni£ej-i_Aj2xi£5Sj, 

V/han connected for direct access^ a file has tha following 
proper ties J 

(1) The order of the records is the order of their record 
nuniberst The records may be read or wr I tten 1 n any order. 

(2) The records of the file are either all formatted or all 
unformatted. If the sequential access method is also a 
membtir of tha sQt of allowed access methods for the file^ its 
andfilo record* If any^ Is not considered to be part of the 
file while it Is connected for direct access. If the 
sequential access method is not a member of the set of 
allovjod access iiiethods for the file^ the file must not 
contain an endf lie record, 

(3) Reading and viriting records is accomplished only by direct 
access input/output statements (13,6,1), 

(4) AM records of the file have tha same length, 

(5) Each record of the file is uniquely identified by a positive 
intecjor eel lad the £S£Q,L£l QilEihEL* The record number of a 
record is specified when the record is written, Dnce 
establishedj^ the record number of a record can never be 
chana^^d. Mote that a record may not be deleted; hovjever^ a 
record n-ay ba rewritten, 

(6) Records need not be read or written in the order of their 
record numbers. Any record may bo written into the file 
while it Is connected (13,3,2) to s unit. For example^ it Is 
permissible to write record 3/ even though records 1 and 2 
have not been viritten. Any record may be read from the file 
rihilc! it is connected to a unit^ provided that the record \}QS 
written sinca the file w^is created, 

(7) The records of the file must not be read or written using 
I i s t--d i r act a d f o rni a 1 1 i n a • 
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13.2,5 liaitRtiAL-EILES 

Internal files provjde a means of transferring and converting data 
from internal storage to internal storage* 

There are two types of internal fl les> standard and extended, A 

S.iiiDd2Ld_iDl££nai-fii^ is a sequence of character storage units. An 

iii:l:£Qdlld«iQi;iJ£,GJi_iIli2 is a sequence of numeric storage units. Each 

type of internal file requires different Input/output statement 
forms. 

The standard or extended property of an internal file Is established 
by the type of storage provided for the file. 

Throughout this documents the phrase iDiS£.Q3l lilt shall be 

Interpreted to mean si2Bll2££l iQ±e£nal liie^ unless explicitly 

prefixed viith 2.^t^D.^^Sl* 

13,2,5,1 StiiQliaXd-lQlnLQ3i-.£iin-£Ll2SeLi:i£5j. 

A standard Internal file h^.s the following properties^ 

(1) The file is a character variable^ character array elementi 
character arrsy^ or character substrinot 

(2) A record of an internal file Is a character variable^ 
character array elements or character substring, 

(3) If tho file Is a oharactar variable^ character arrey elements 
or character substring^ It consists of a single record v-ihose 
length is the same as the length of the variable^ array 
elements or substr1n3^ r esp?3ct i vsl y , If the file Is a 
charucter arrays It Is treated as a sequence of character 
arra^/ elements. Each array element is a record of the file. 
The ordering of the records of the file is the same as the 
ordering of the arrfiy elements in th2 array (5,3,4), Every 
record of the fll2 has the sanie lengthy which Is the length 
of an array element In the array, 

(4) The variables array elem^nt^ or substring that is the record 
of the internal file becomes deflriad b:' writing the record. 
If the number of characters written In a record Is less than 
the length of the record^ the remaining portion of the record 
is fill ed Hi th b 1 anks, 

(5) A record may be read only if the varlable> array element^ or 
substring that is the record is defined, 

(6) A variable^ "rrray elemont^ or substring thst is p record of 
an Internal file may become defjned (or undefined) by means 
other than an output statement. For exampleji the variable^ 
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array element^ or substring may become defined by a character 
assionment statement, 

(7) An internal filQ is alnayj? positioned at the bajinnlng of the 
first record prior to data transfer* 

13.2.5.2 SiaQiiaLd-lQi£LDiii-.£li«-R£Stria£ii3QSi 

A standard internal file hss the follovilng restrictions: 

(1) Reading and viriting records is accomplished only by 
sequential access formatted input/output statements {13.0.1) 
th'it do not specifiy list-directed formatting^ or NAMELIST 
Tor matting (13.4 (6)). 

(2) An auxiliary input/output statement must not specify an 
I n 1 3 r n a I f n e . 

13.2.5.3 L>ltSQil£il-IatflLn2i«Eii£-.££QSSLiiS5 

An extendad internal file has the following propertles. 

(1) The file is specified by a variable^ array elements or array 
of type other than char retort bi> or hslf precision. If an 
array element is used^ the file bsgins with the array 
eleiiient and extends through the end of the array, 
Dthervjise^ the file Is the variable or array specified. 

(2) A record of the file Is one or more contiguous numeric 
storage units. 

(3) The length of a record of the file is measured in 
characters^ and Is equal to 

a ^' B 

where: 

^ is the maximum number of characters that can be 
stored in a single numeric storage unit at one 

t i me 

13 Is thsj number of numeric storage units in the 
record 

(A) Every record of the file has the same lanoth. 

(5) The variable or e,rray element (s) that is a record of the 
file is defined by writing the record. If the number of 
characters written In a record is less than the length of 
th?. record^ the remaining portion of the record is filled 
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vii th bl anks t 

(6) A record may be read only if the variable or array 
elementCs) that is the record is defined* 

(7) A Yariable or array eleni2nt{s) that is a racord of the file 
may becoina defined or undefined by means other than an 
output statement, 

(8) An extendod internal file Is alvjays positioned at the 
initial point of the first record prior to transfer. 



An extended internal file has the following restrictions 

(1) Reaclino an:l nriting records is accofnpl i shed only by DECODE 
and ENCODE statements (13.14), List-directed or NAMELIST 
formatting must not be specified, 

(2) An auxiliary input /output statement must not specify an 
ex tan dad inter na | f } I es 

13,3 UHIIS 

A liQil is 3 inacns ofraferringtoafile, 

13.3,1 UIJII_:;^ISTHHC£. 

At any given tiine^ there is £ pr ocesso r-det^^rnl ned set of units that 
::ire Said to ejil^t for an executable program. A unit exists for each 
allowed external unit Identifier, 

All input/output statements nisy refer tn units that exist. The 
INQUIRE and CLOSE statements may also refer to units that do not 
exist, 

13.3,2 (iQLii:iEaiaii.a£-A-yLiii. 

A unit has a property of being connected or not connected. If 
connected^ it refers to a file, A unit may become connected by 
pr SGonnect i on^ implicit connection^ or by the execution of an OPEN 
statement. The property of connection is symmetric: if a unit is 
connected to a file^ the file is connected to the unit, 

Pr ^connect i on nisans that the unit Is connected to a file at the 
bsj inning of execution of the executable program and therefore may 
be referenced by input/ output statements without the prior execution 
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13.3.2 CONNECTION OF A UMIT. 

nf an GPEM statement. 

Implicit connection means that if a unit that is not connacted Is 
referenced in a data transfer or file positioning input/output 
statement it becomes connected to a processor-determined file 
immediately prior to the execution of the input/output statement* 
The nam a of tha fila to which the unit becomes connected Is 
datennined In the same manner as for an 0PEf4 statement for which the 
FILF= specifier is omitted. 

AM input/output statements except OPErb CLOSE^ and INQUIRE must 
raference a unit that Is connected to a file and thereby make use of 

r a f f e c t t ii a t f i I e • 

A file may be connected and not exist. An example is a prsconnected 
nevf f i I e. 

The maximum number of units that may be connected to files at any 
one time is processor dependent^ but must not be less than 50. 

A unit must not bo connected to more than one file at the ssn'e tlms^ 
but an axtsrnal file may be connected to more than one unit at the 
same time. Hov«jevarj» means are provided to change the status of a 
unit and to connect a unit to a diffirant filo. 

After a unit has been disconnected by the execution of a CLOSE 
statementj» it may be connected again viithin the same executable 
program to the same f\]e or a differnnt fils. After a file has been 
disconnected by th-j execution of e CLOSE statement^ It may be 
connected again within the same executable program to the same unit 
or a different unit. Note^ hovfever> that the only means to refer to 
.3 file* that has been disconnected Is by Its name In sn OPEN or 
INQUIRE statement* Therefore,, there may bo no means to reconnect an 
unnamed file once it is disconnected. 

13.3.3 yiiII^S£EaEI5a-.AtiQ-.in£blIIEI£E. 
The form of a iiDit sa£Cifi££ is: 

CUMIT =3 y 

vihere u is an external unit identifier or an internal file 

1 dent i f I er . 

An external unit identifier is used to refer to an external file. 
An internal file identifier is used to refer to an internal file. 

An i!^t^£D3i LiQii: iiJ£Di;ili££ I J? one of the foMoHing! 

(1) A scalar Integer or scalar Boolean expression £ such that 
either 
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(a) INT(ii) has an intager valy?i in the renge 0-999j» or 

(b) BOnL(a) has a value of the form L"f"j where £ is a 
sequence of one to seven letters or digits^ starting 
viith a letter^ comprising a valid system file name. 
Upper and lower case letters in the file name are 

interprsted as variants of the same letter. 

There Is a correspondence betweon certain pairs of external 
units. In case (a),. the unit identified by the value of 
IMT(£) corresponds to the uni t i dent i f i sd by "TAPE]s"> nhere h 
is the digit string^ with no leading zeros^ representing the 
value of INT(£), In case (b)^ if J is of the form TAPEK^ 
whare K Is a dig^t strlny^ with no leading zeros^ 
representing an integer value in the range 0-999, then the 
unit identifle*i by the value of BOOKi;) corresponds to the 
unit Identified by the value of ]^} if f is not of this form> 
then no correspondence exists In this case. 

A correspondance between two external units means that if one 
of the external units is connected to a file then the other 
unit is also connected to the file, 

(2) An isterlskji identifying a p ar t i cul ar pr ocessor-determ |ned 
external unit that is preconnected for formatted sequential 
access {13.9. 2) . 

The external unit identified by the value of il is the sams external 
unit in all program units of the executable program. In the 

ox limp I o: 

SUBROUTINE A 
R5AD (6) X 

SUBROUTINE B 

N = 6 
RSVJIMD M 

thf^ value 6 used in both prograr. units Identifies the sarne external 
uni t. 

An external un i t i dent i f i er in an auxiliary input/output statement 
(13.10) must not be an asterisk. 

An iniSEEiai fiiS iil£Qj;ifi££ provides the means of referring to a 

standard or axt«ndtijd Internal file (13. 2. 5). An internal file 
Identifier for a standard Intern?^ I file is the symbolic name of a 
character varlablej* character array/ character array section/ 
character array alement^ or character substring. An internal file I 
identifier for an extended Internal file Is the symbolic nan^e of a J 
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'/ariabls^ arrays array section^ or array element of type other than 
character/ bit or ha! f-prec islon* 

If the optional characters UNIT= are omitted from the unit 
specifier/ the unit specifier must be the first item in a list of 

speci f i ars • 

13.4 FaEMAI_S£££IEIEE-AIiI3-ID£tiII£l£E 
The form of o iGLmal; sa££iii£L iss 

CFMT =1 f 

Hhare i is a format identifier. 

A fflLiDili idsQiifisl identifies a format* A format identifier must 
be one of the folionino? 

(1) The statement labeJ of a FORMAT statement that appears in the 
same program unit as the format identifier. 

(2) An int'jgs^r variable name that has ba^n assigned the ststement 
labe! of a FORMAT statement that appears In the same program 
unit as the format identifier (10.3). 

(3) A oharactar array name or chsracter srray section {14»1.2). 

(4) Any scalar character expression except a character expression 
involving concatenation of a dummy argument or variable whose 
length specification is an asterisk in parentheses. Note 
that 1 character constant is pernitted. 

(5) An asterisk/ specifying list-directed formatting. 

(6) A HAHELIST jroup name, 

(7) An array nanicj or array section of type other than character^ 
bit or half precision. 

If the optional characters FMT= are omitted from the format 
specifier/ thii fornat specifier must be the second item in the 
control information list and the first item must be the unit 
sp3cifier without the optionni characters UNIT=, 

13.5 EFaQEIl^S£££lEI£E 

The form of a LQ&QLd SIl££ii£i§L is: 

REC = £Q 
Mhere £q is an integer scalar expression whoss value is positive. 
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It specifies the number of the record that is to be read or written 
In 'i file connected for direct access. 

13.6 £BLEQR-ALlE)^£tlDzn£zEIL£-£Qtll}IIiQNS 

The set of 1 nput /output er ror conditions is processor dependent. 

An end-of-file condition exists If either of the following events 
occurs: 

(1) An endfile record Is encountered during the reading of a file 
conne In this case? the fi?e Is positioned after the endfile 
record. 

(2) An attempt is made to read a record boyond the end of an 
internal file. 

If an error condition occurs during execution of an i nput/output 
statements execution of the Input/output statement terminates and 
the position of tha file becomes indeterminate. 

If an error condition or an end-o f-f 1 1 e cond i t i on occurs during 
execution of a READ statementj> execution of the READ statement 
terminates nnd tht2 entities specified by the input list' 3nd 
impMad-DO variables In the input list beconis undefined. Mote that 
variables and array elements appearing only in subscripts^ substring 
expressions^ and implied~DO parameters in an Input list do not 
become unda fined nhen the entities specified by the list become 
undefined. 

If an error condition occurs during execution of an output 
statements execution of the output statemnnt terminates end 
i mp I i ed-DO~v ar i ab J OS In the output list become undefined. 

If an error condition occurs during execution of an input/output 
statement that contains neither an I nput /output status specifier 
(13.7) nor nn error specifier (13.7. 1)> or If an end-of-flle 
condition occurs during execution of a READ statement that contains 
neither an input/output status specifier nor an end-of-fiie 
sp3oifier (13.7.2)s execution of tha executable program Is 
ter'il nated. 

13.7 IZQ^iIAI.nSi._£EEQEi-AMI}_£lia=:Q£=EIL E-S££ai£I£ES 
The form of an iQoutZouinyt S.tntU£ sn^aiflSL is: 

IISTAT = ifls 
where ina Is an Intagar variable or Integer array element* 
Execution of an input/output statement containing this specifier 
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13.7 I/O STATUS^ uRRGRj AND EHD-OF-FILE SPECIFIERS 

causes iss to become defined: 

(1) with a zero value If neither an error condition nor an 
end-of-flle condition is encountered by the processor* 

(2) yn th a processor-dependant posltivQ integer value if an error 
condition Is encountered/ or 

(3) viith a processor-dependent negative integer value if an 
end-o^-fjle condition Is encountered and no error condition 
i s encountered. 

13.7.1 £aEIQ^_SE£CI£I£B. 

Thu form of an q,LLD.L aa££ii:i§JL I si 

I:RR = S 

whore ^ is the stat^;ment label of an executable statement that 
appears in the same program unit as the error specifier. 

If an input/output statement contains an error specifier and the 
processor encounters an error condition during execution of the 

statement? 

(1) execution of the input/output statement terminates* 

(2) the position of the file specified in the Input/output 

statement becomes indeterminate* 

(3) if the input/output statement contains an input/output status 
specifier (13.7)* the variable or array element las, becomes 
defined ^^ith a processor-dependent positive integer value* 
and 

(A) execution continues with the stateinent labeled s« 

13.7.2 £liD=a£=:£ILE-S£Eai£I££. 

The form of an findznlzfiifi Sli£(lifi££ is: 
END = s 

Hhere s Is the statement label of an executable statement that 

appe.irs In the sa^e program unit ss the end-of-flle specifier. 

If a READ statement contains an end~of-file specifier and the 
processor encounters in and-of-file condition and no error condition 
durlns execution o? tha statement? 

(1) execution of the READ statement terminates* 
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13, 7,2 END-GF-FILH SPECIFIER, 

(2) If the READ statement contains an input/output status 
speci f i er (13,7) • the variable or array element Iqs becomes 

djjfined Mith a processor-dependent negative Integer valuer 
and 

(3) execution continues with the statement Ipbelad s. 

1 3 . 8 R£AQi._iiail£i.-££IHIi«AiiQ^PUli£H-SIAI£13£MlS 

The READ strttiment is tha data transfer Input statement. The VIRITE^ 
PRINT/ and PUNCH statements are the data transfer output statements. 
The forms oP the data transfer input/output statements are; 

READ (£iiis^) ClQiistl 

R;:AD f Cj.Ii2iisil 

v/RIT£ (iiiliili) Cifiiisj:] Ijl 

PRINT f CloiisiH 1/3 

PUNCH f I.ifiiistl 3 

vihere: aiiisi is a control information list {13,8,1) that includes; 

(1) A raference to the source or destination of the data 
to be transferred 

(2) Opti onal spec i f 1 cat i on of editing processes 

(3) Optional specifiers that determine the execution 
sequence on the occurrence of certain events 

(4) Optional specification to Identify a record 

(5) Optional specification to provide the return of the 
input /output status 

f is a forinat identifier (13,4) 

iaiisi J-s an input/output list (13,8,2) specifying the data 
to be transferred 

If ths format identifier f is en asterisk/ the list ifiiisl In a 

V/RITc/ PRINT or PUNCH statement may be followed by a comma. The 

cofii)^^ has no affect. If the format identifier £ is e, HAHcLlST group 
nanie (13,14)/ iaiisi must not be present. 
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13.6,1 iIQliISDL»Iti£0EMMI0ii-LI5I. 
items may be any of the follo'^^ingJ 



list (2*11) whose list 



I [UNIT =3 U 

I CFMT = 1 I 

I RliC = LB 

\ laSTAT = ifls 

\ ERR = S 

! SND = s 

+ . 



A control information list must contain exactly one unit specifier 
(13.3.3)^ at most one format spociflar (13.4)^ at most one record 
specif Isr (13. 5)^ at most one Input/output status specifier (13«7)^ 
at most one error specifier (13. 7. 1)^ and at most one end-of-file 
speci f i er ( 13.7. 2 ) « 

If the control Inf orniat ion list contains a format specifier^ the 
statement is a ffiiia^tied iHfiHtZflUtfiili: S-taieffl^ui? otherviise^ it is an 

UQiSLLiuBttad iDBUt/^-Jt^iJl; si^ti^osnt. 

If the control information list contains a record specifier^ the 
statement Is a iliLiJIit aiiSS^S iaQyt/GUtEUj; ^tatSIDSDii othfirnise^ it 
is a soiaueQtiai 2.£<1^^S. infiiltZnilifijyJ: ^iiii£iD£ni« 

If the optional characters UNIT= are omitted from the unit 
spaoifier.* the unit specifier must be the first item in the control 
information list. 

If the optional characters Ft"^T= are omitted from the format 
specifier^ the format specifier must be the second item in the 
control Information list and the first item must be the unit 
specifier vjithout the optional characters UHIT=. 

A control I nf orr-ist 1 on list must not contain both a record specifier 
and an end~of-file specifier. 

If Che format identifier is an asterisks the statement is a 
iiS.tziliL£12t<i£] lOiiLltZniltailt statEffiani and a record specifier must not 
be present. 

If the format identifiar Is a MAMtLIST aroup name^ the statement Is 
a UAlIELISI iQSiit/QijiDijj; siateaeQi and a r ecord spec I f I er must not be 
priisent. 

In 3 WRITE statement/ the control Information list must not contain 
an end-of-f i I e spec i f i er . 
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13.B,1 COMTROL INFORHATIOH LIST, 

If the unit specifier specifies an internal file^ the control 

infonnation list must contain a format identifior other than an 

asterisk or a NAHELIST group name and niust not contain a record 
specifier. 

13.0,2 INEUIZQUIELH-LISI 

An iDBiltZailiiiyi ilatj* iciiS-t^ specifies the entities whose values 
are transferred by a data transfer input/output statement. 

An input /output list is a list (2.11) of input/output list Items and 
implied-DO lists (13*8.2.3). An inDiitZoyifiiii il^i lieffl is either an 
input list i teir. or an output list item. 

If an array nanie appears as an input/output list item> it is treated 
as if all of the elements of the array were specified in the order 
jiven by irray alarnent ordering ( 5.3.4) . The name of an 
assumed-size dummy array must not appaiir as an Input/output list 
I tem, 

13.3.2.1 Ia2Ul-Lisi-IiaiDS± 

An iDaut. iis.t ii£iS must be ona of the fo I lovv'i ng: 

(1) A var i ab I e name 

(2) An array element name 

(3) A character substring name 

(4) An array ngrne 

(5) An array section nar-e 

Only Input list items may appear as input/output list items in an 
input str^tement. 

13.8.2.2 nLitiiiit_Lis.i;._Ii:2nSi 

An isytDvji iisi iifilB must be one of ths follo^-Jing: 

(1) A var I ab 1 e name 

(2) An array element name 

(3) A chir actor substr i no nai^e 

(4) An array name 

(5) An array section name 
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13«8,2.2 autpyt List Items. 

(6) Any other expression except a character expression involving 
concatenation of an operand whose length spac I f I cat i on Is an 
asterisk in parentheses unless the operand is the symbolic 
name of a constant 

Mote that a constant^ an expression involving operators or function 

references^ or an ciKpresslon enclosed In parentheses may appear as 
an output list Item but must not appear as an input list item. 

13,8,2.3 i!Ti£il£d=Qa-L±sij. 

An isjiillaiizIlQ lilt is of the form? 

( diisi^ i =01^ £2 C^e3 J ) 

where: 1> elj e2^ and e3 are as specified for the DO statement 
(11.10) 

dilS-t is an Input/output list 

The range of an impMed-DQ list is the list iliisi.*. Note that jjiiai 
may contain implied-DO lists. The iteration count and the values of 
the DG-variable i are established from £l^ ^2^ and ^3 exactly as for 
a DO-loop, In an Input statements the DO-varlabl'2 1^ or an 
associated entity^ must not appear as an input list item in dlisi* 
Vlhen an Imp I i ad-DO I ist appears In an input/output I ist^ The list 
iteris in dliiit are specified once for each Iteration of the 
implled-DO list ulth appropriate substitution of values for any 
occurrence of the DG-vari©ble 1* 

13 . -) £X£CiUIiaLl-.Q£-(^-.nAiA_IEAtiSEEE-.ItiEUI/QyiEyi-.SIAI£{l£llI 

The effact of executlnj a data transfer input/output statement must 
be as if the follovnng operations were performed in the order 
spec i f i t;d : 

(1) Determine the direction of data transfer 

(2) Identify the uni t 

(3) Establish the for?'iat If any is specified 
(^) Position the file prior to data transfer 

(5) Transfer data betviaen the fila and the entities specified by 
the input/output list (If any) or identified by the NAMELIST 
group name 

(6) Position the file after dati transfer 

(7) Caus?:) the specified Integer variable or array element In the 
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13,9 EXECUTION OF A DATA TRANSFER INPUT/OUTPUT STATEMENT 

Input/output status specifier (if any) to become defined 
13.9,1 QIR£C.lIQM>Q£^DAIA-IEAti^E£E 

Execution of a READ statement causes values to be transferred from a 
file to the entitles specified by the Input llst^ If one Is 
specified. 




13.9.2 IQEtillEIItiG^A.yMlI 

A data transfer input/output sttite.Tiant tbat contains a control 
information list (13.3.1) Includes a unit specifier that identifies 
an external unit or an internal file, A READ statement that does 
not contain a control information list specifies a particular 
processor-datcirmi n??d un i t^ which Is the sarna ns the unit identified 
by an asterisk In a READ statenient that contains a control 
information list. A PRINT statement specifies some other 
processor-determined unit* which Is the same as th^2 unit identified 
by an asterisk in a WRITE- statement. A PUNCH statement specifies 
still another processor-determined unit. Thus each data transfer 
input/output statement identifies an external unit or an internal 
f i IQ. 

Data transfer Input/output statefpents that do not contain control 
information lists refer to units that are preconnected as follows: 

+ + + _ + 

i Statement { Standard Unit? File Name I 

+ — ^ + + 

I R^AD I L"IMPUT" J 'INPUT' I 
\ PRINT I L"OUTPUT" I » OUTPUT » | 

; PUNCH ! L"PUNCH" | • PUNCH' ! 

+ + + 4. 

The unit idontified by a data transfer input/output statement must 
be connected to a file when execution of the statement begins^ 

Data transfer statements that do not contain a control information 
list refer to preconnocted files that arc processor defined. 

13.9.3 EiIAaLIEh!ItiG-A-.FaEtilI 

If the control information list contains a format identifier other 
than Jin asterisk or NANELIST group nana,* the format specification 
Identified by the format Identifier Is established. If the format 
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13.<i,3 ESTABLISHING A FORMAT 

identifier is en asterlskj* llst-d 1 rect sd formatting Is established. 
If the format identifier is a NAMElIST group name* NAMELIST 
formatting {14.7) is established. 

On output/ i •" '"^^ internal file has been specified* a format 
specification (14»1) that is in the file or is associated (18.1) 
Hith the file must not be specified, 

13.9.4 £lL£^EaSIIIQ!i-£EIQS-ID^QAIA-.IMtlSE£S 

The pos i t i on i ng of the file prior to data transfer depends on the 
method of access: sequential or direct. 

If the fi)3 contains an endflle record* the file must not be 
positioned after the endfile record prior to data transfer* 

13.9.4.1 SSiiUilGtiai^AfilliiSS 

On input* the file is positioned at the beginning of the next 
record. This record becomes the current record. On outputs a new 
record is crnjted and becoires the last record of the fife. 

An Internal file is alviays positioned at the beginning of the first 
record of the file. This rrcord hecomas the current record. 

13.^.4,2 Qi£i:i£i_A£iaiii£ 

For direct access^ the file is positioned at ths beginning of ths 
record specified by the record specifier (13.5). This record 
becomes the current record* 

13.9.5 DAIA^IEALi5E£E 

Dat'i are transferred betvieen records and entities specified by the 
input/output list. The list items are processed In the order of the 
i nput /output list. 

All valuss needed to determine which entities are specified by an 
Input/output list item are determined at the beginning of the 
processing of that item. 

All V£, luos are transmitted to or fron the entitles specified by a 
list item prior to the processing of any succeeding list item. In 
th3 example^ 

READ (3) N.. A(N) 

two values are read; one is assigned to M^ and the second is 
asslinDd to A(M.) for the nen value of !!. 

An input list izemj or an entity associated with it (18, 1*3)* must 
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not contJ^in my portion of the establislied format specification. 

If an internal file has been specified^ an input/output list Item 
must not be in the file or associated vn th the file, 

A DO-varlable becomes defined at the beginning of processing of the 
items that constitute the range of an implled-DO list* 

Hn output* every entity vjhose value is to be transferred must foe 
clafined. 

On Inputs an attempt to read a record of a file connected for direct 
access that has not previously been written causes all entities 

specified by the Input list to become undefined. 

13.9.5.1 yQi:£i£Eattii£l-Qata-lLaDSf ££ 

During unforniattad data transfer^ data are transferred without 
editlnj betH'^en the current record and the entitles specified by the 
input/output list. Exactly one record is read or written. 

On inputs tho fil^^ must be positioned so that the record read is an 
unf or matted record or an endflle record* 

Hn inputs the number of values required by the input list must be 
less than or equsl to the number of values In the record. 

On inputs ths type of each value in ths record must agree with the 
type of the corresponding entity In the input listi* except that one 
complex value may corresponi to tKo real list entitles or two real 
values may correspond to one co^iiplax list entity. If an entity in 
the input list is of type character^ the length of the character 
entity must agree with the length of the character value* 

Also^ a Booioan value may correspond to an Integer or real list 
entltyj- or to either half of a double precision or complex list 
entity; and an integer or real valuej» or either half of a double 
precision or couiplvix valuer mi^y correspond to a Boolean list entity* 

On output to a file connected for direct access^ the output list 
must not specify more values than can fit into a record, 

Gn output/ If the fila Is connected for direct access and the values 
specified by ths output list do not fill the record^ the remainder 
of the record is undefined* 



I^ tha filtt is connected for formatted Input/outputs unformatted 
data trans far Is pr oh lb I ted. 

The unit specified must be an external unit. 
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13,Q«3t2 For-natted Data Transfer 

13.9,5.2 £0Lmatiefl_naiii_Ii2QSf££ 

Durino formatted data transfer^ data are transferred with editing 
between the entitles specified by the input/output list and the 
file* The current record and possibly additional records are read 
or Hrittan. 

On Inputs the f M a must be positioned so that the record read Is a 
formatted record or an end file record. 

If the filu Is connected for unformatted input/outputs formatted 
data transfer Is prohibited. 

13 .9 . 5 . 2 . 1 nsili£._^_£QSaM-S££CIEiaAIiQLl 

If a format specification has been established^ format control 
(14.3) Is initiated and editing is performed as described In 14*3 
through 14.5. 

On input/ the input list and formst specification must not require 
more charactars frooi a record than the record contains. 

If the file is connected for direct access^ the record number Is 
increased by one as each succasdlng record is read or written. 

Gn output* If the file Is connected for direct access or Is an 
internal file and the characters specified by the output list and 
format do not fill a record/ blank characters are added to fill the 
record. 

Gn output/ if the file is connected for direct access or is an 
internal file/ tha output list and format sped fi cat I on must not 
specify more characters for a record than can fit Into the record* 

13.9, 5.2.2 LISIrI}IEi£IEi}-.EnBMAIIIIi!£ 

If 1 i st-dl r octed formatting hfis b^en establlsbad/ editing Is 

performed as described jn lA. 6. 

13.0,5.2.3 E£ItlIlblO«Q£-.EaEIlAIl£!2>E£lIDaiIS 

The transfer of Information in a formatted record to certain devices 
determined by the processor Is called EliJ3iiDi3« If a formatted 
record is printed/ tha first character of the record Is not printed. 
The remaining characters of the record/ if any/ are printed in one 
line beginning at the left margin* 

Th3 first character of such a record deter»r. Ines vertical spacing as 

follows! 
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+ . + , . . + 

1 Character ] Ver t i ca I SpacI ng Before Printing I 



.- + 



Bl ank 

1 
+ 



J One Line 

1 Tv?o Lines 

! To First Line of Next Page 

I No Advance 



If there are no characters in the record (14.5«A)^ the vertical 
spacing) is one line ani no characters other than blank ere printed 
i n that I I ne . 

A PRINT statement does not imply that printing will occurs and a 
WRITE statement does not imply that printing Hill not occur. 

13.9,6 £Il£>EQSIIiaii-AEI££-QAIA-IEAL12E£E 

If an end-of-file condition exists as a result of rasding an endfile 
records the file Is positioned after the endfile record. 

If no error condition or end~of-file condition exists^ the file is 
positioned after the last record r aa d or viritten and that record 
becomes the praceding record. A record written on a file connected 
fvr sequential access becomes the last record of the file. 



If the. file is positioned after tha endfile record^ execution of a 
d?ita transfer Input/output statement Is prohibited. However^ a 
BACKSPACE or REWIND statement may be used to reposition the file. 

If an J'.rror condition exists^ th a position of the file is 
i ndeterf^ Inate . 

13.9. 7 IM£UlZDilI£yi-.^IAIlJS-S££flI£I£R -QEEIIilliai:] 

If the data transfer Input /output statement contains an Input /output 
status specifier^ the Integer variable or array element ins becomes 
defined. If no error condition or end-of-file condition exists^ the 
'./alye of icii is zero. If an error condition exists^ the value of 
io^ is positive. If an end~of~file condition exists and no error 
condition exists.* the value of Iss is ne-jative. 

13,10 ALliLlLIAEI-IiiEUI/0UlEUI-SIAI£t!£LlI2 

13.10.1 QPEii.SIAIEl^ENI 

An 0P£^5 statement may be used to connt-^ct (13.3.2) an existing filo 
to a unitj craete a file (13.2.1) that Is preconnected^ create a 
file and connect it to a un i t^ or change certain specifiers of a 
connection betvreen a file and a unit. 
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The form of an QPSM statement is: 

GPCN (jalisl) 
Hhere fiiisi is alist (2.11) ofspecifiers: 



CUNIT =3 y 
lOSTAT = i2S 

ERR = S. 
FILE = fin 
STATUS = ^ta 
ACCESS = 2C£ 
FORH = ta 
RECL = Li 
BLANK = MQk 
BUFL = hi 



+-, 



niisi must contain exactly one externa! unit specifier (13.3.3) and 
mny contain at most one of each of the other specifiers* 

Th3 other specifiers are described as follows: 

lOSTAT = Ifis 

Is in input/output status specifier (13.7). Execution of an 
QPEN statement containing this specifier causes ii25 to become 
defined nlth a zero value If no error condition exists or 
with a processor-dependent positive integer value if an error 
c n d i 1 1 n e X I s t s , 

ERR = s 

is an error spec if i er (13.7.1). 

FILE = fiQ 

flo is a character scalar expression whose value when any 
trailing blanks are removed Is the name of the file to be 
connected to the specified unit. The alphabetic case of 
letters in the value of the character expression is not 
significant. The file name must be a name that is allowed by 
thfi processor. If this specifier is onltted and the unit Is 
not connected to a file> it becomes connected to a 
processor-daterm ined f i I e. (See a Iso 13 .10.1 • 1. ) 

The processor dotGrmines a file name fron the unit specifier y as 
f I I ows 

If INT(ji) has a value representabi e by the digit string d in the 
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range 0-999^ th^s fila name is TAp£o« 

If BQOKy) has a value of the form L "I'V where 1 Is a valid 
system file name starting >jith a Istter^ the file name is f 
except In tvjo cases! If BnOL(u) has the value L"INPUT" the file 
nania is IHPUT* and if BOGL(ii) has the value L"OUTPUT" the file 
name is OUTPUT* Upper and lower case letters in the file name 
are interpreted as variants of the same letter. 

Othervjlsa.* the ynit specified does not exist* 

STATUS = sia 

^il3 is a scalar character expression Mhose value when any 
trailing blanks are removed is xQLD/ HcM, SCRATCib or UNKNOWN. 
The alphabetic case of letters in the value of the character 
exprassion is no t s i gni f i cant . If OLD op Ht\'] Is specified^ a 
FILE- specifier must be given. If OLD i s specif ied> the file 
must exist. If NEW is specified^ the file must not exist. 
Successful execution of an OPEN statement vnth NSW specified 
creates the file and changes the status to OLD {13.10.1*1). 
If SCRATCH is specified with an unnamed f i I e^ the file is 
connected to the specified unit for use by the executable 
program but is deleted (13.2.1) at the execution of a CLOSE 
state:nent referring to the same unit or at the termination of 
the executable program. SCRATCH must not be specified with a 
named file. If UHKNOWM is spacifi^dj the status is processor 
dependent. If this specifier is omitted.* a value of UNKNOWN 
is assumed, 

ACCESS = B££ 

2.Q.Q. is a scalar character expression whose value when any 
trailing blanks are removed is SEQUENTIAL or DIRECT. The 
<-.il ph ibeti c case of letters in the value of the character 
expression is not significant. It specifies the access 
method for the connection of the file as being sequential or 
direct (13.2.A-). If this specifier is omitted^ the sssumed 
value is SEQUENTIAL. For an existing fMe^ the specified 
access method must be included in the set of allowed access 
methods for the file (13*2.4). For a new file^ the processor 
cr'iatas the file with a sot of aliened access methods that 
Includes the specified method. 



FORM = fa 



Ie is a scalar character expression whose value when any 
trailing blanks are removed is FDRMATTEDj UNFORMATTED^ or 
BUFFERED. The alphabetic case of letters in tho vfilue of the 
character 3;<praSGion is not sionif leant. It specifies that 
the file is being connected for formatted^ unf or mattedj or 
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buffered I nput /outputs respec tl va I y. If this specifier Is 
omitted^ a value of UNFORMATTED Is assumed if the file Is 
being connected for direct accsss^ and a value of FORMATTED 
is assufiied if the file Is being connsctad for sequential 
access. For an existing flle^ the specified form must be 
included In the set o^ al lowed forms for the file (13.2«2)« 
For an*;?! fila^ th^i procossor creates the file vnth a SBt of 
alloijed forjns that Includes the spec If led form. 



RECL = Li 



ri is a scal-nr integer expression whosa value must be 
positive. I t spec i f i es the length of each record in a file 
being connected for direct access or for formatted sequential 
access. If the file is being connected for formatted 
I nput /outputj* the length is the number of characters. If the 
file is being connected for unformatted direct access 
input/outputs the length is measured In processor-dependent 
units. For an existing files the value of l1 must be 
included in the set of allowed record lengths for the file 
(13.2.2). For a nen files the processor creates the file 
with a set of allowed record lengths that Includes the 
specified value. This specifier must be given v/hen a file Is 
beinj connected for direct access. 

BLAI4K = hiak 

llinis is a scalar character expression whose value when any 
trailing blanks are removed is MULL or ZERO. The alphabetic 
case of letters in the value of the character expression Is 
not significant. If NULL is specified/ all blank characters 
in numeric formatted Input fields on th« specified unit are 
Ignored^ except that a field of all blanks has a value of 
zero. IP ZERO is specified^ all blanks other than leading 
blanks are treated as zeros. If this specifier is omitteds a 
yalui of NULL is assumed. This specifier is permitted only 
for a file beinLi connected for formatted I nput /outpu t. 

The unit specifier is required to appearj all other specifiers are 

optional^ except that the record length lI must be specified If a 

file is being connected for direct access. Note that some of the 
specifications have an assumed value if they are omitted. 

The. unit spcalficd must exist. 

A unit may be connected by execution of an OPEN statement in any 
program unit of an executable program ands once connected^ may be 
refari^ncjid in any program unit of tho executable program. 

BUFL^iii 
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hi Is an Integer or Boolean expression. The value of IMTClii) 
must be nonnsgative and spociflas th«2 buffer length (15.1.1). 

13, 10 • 1.1 QEEti_i2i>a-(Io£ifi£i:toiiJJaiti 

If a unit is connected to a file th?iit exists^ Qxecution of an OPEN 
statement for tliat unit Is permitted* If the FILE= specifier Is not 
included in the OPEN statement/ the file to be connected to the unit 
is the same as the file to which the unit is connected. 

If the fll« to be connactsd to the unit doas not exists but Is the 
same as the file to vjhich the unit i s preconnected/ the properties 
specified by the OPEN statement become a part of the connection. 

If the file to be conn acted to the unit is not the s^f^Q as the file 
to which the unit is connected/ the effect is as i f a CLOSE 
statement (13,10.2) without a STATUS= specifier had been executed 
for the unit immediately prior to th« execution of the OPEN 

statement. 

If the file to be connected to the unit is the same as the file to 
vihich the unit is connected/ only thcj BLAHK= specifier may have a 
valys different from the one currently In effect. Execution of the 
OPEN statement causes the new value of the BLANK= specifier to be in 
effect. The position of the file is unaffected. 

If a file is connected to a unit/ execution of an OPEN statement on 
that file and a different unit is permitted. The effect is that the 
file becomes connected to more than one unit. 

13.10.2 £.LQ^£-2IAIEa£yi. 

A CLOSE statement is used to terminate the connections of a 
particular fiia to the unit or units to which it is connected. 

The form of a CLOSE statenient Is: 

CLOSE (aiiisi) 
where iiiisi Is a list (2.11) of spsciflersi 



! CUNIT =3 ii 

1 lOSTAT = lias 1 

I ERR = s 



I STATUS = 5i2 



niiisi must oontsin exactly one external unit specifier (13.3.3) and 
may contain at most one of each of the other specifiers. 
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The other specifiers are described as follows: 
lOSTAT = las 

is an input/output status specifier (13.7)» Execution of a 
CLOSE statement containing this specifier causes io^ to 
become d*^finad lith a zero value if no error condition exists 
or lith a processor-dependent positive integer value If an 
error condition exists, 

ERR = s 

is an error specifier (13.7.1) 

STATUS = s.t^ 

stB is a scalar character expression whose value when any 
trailing blanks are removed Is KEEP or DELETE. The 
alphabetic case of letters In the value of the character 
expression is not significant. <sl:£ determines the 
disposition of the file that Is connected to the specified 
unit. KEEP must not be specified for a file whose status 
prior to execution of the CLOSE statement is SCRATCH. If 
KEEP is specified for ^ fll^ that OKists^ the file continues 
to exist after the execution of the CLOSE statement. If KEEP 
is specified for a file that does not exists the file will 
not xixist after the exacution of the CLOSE statement. If 
DELiiTH is specified^ the file will not exist sfter execution 
of the CLOSE statement. If this specifier is omitted^ the 
assumed value is KEEP^ unless the file status prior to 
execution of the CLOSE statement is SCRATCH^ in which case 
the assumed value is DELETE. 

Execution of a CLOSE statement that refers to a unit may occur in 

any program unit of an executable program and need not occur in the 

sanie progra;! unit as the execution of an OPEN statement referring to 
that unit. 

Execution of a CLOSE statement specifying a unit that does not exist 
or h?s no file connected to It is per (Twitted and affects no file. 

After a unit has been disconnected by execution of a CLOSE 
statements it may be connected again "/j I thin the same executable 
program^ either to the same file or to a different file. After a 
file has been disconnected by execution of a CLOSE statement^ it may 
be connected again vii thin the same executable programs either to the 
samo unit or to a different un I t^ provided that the file still 

If a file is connected to more than one unit.f the CLOSE statement 
<nay ref-^r to :iny one of these units ni th the same effect! eech unit 
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Is disconnected. 

13.10.2.1 Ia2ii£siJ;«£Xi2a£^a±«Ii2i:aiQatiQQ-.fli:«£3t£cyi:iiiflx 

At termination of execution of an executable program for reasons 
other than an error condition^ aH units that are connected ere 
closad. I^ach unit Is closed with status KEEP unless the file status 
prior to termination of execution was SCRATCH^ In which case the 
unit is closed with status DELETE. Mot? that tha «iffect is as 
though a CLOSE statainent without 'i STATUS= specifier were executed 
on each connected unit. 

13.10.3 iMoniS£„siAI£n£fJI. 

An INQUIRE st?jtement iriay be used to Inquire about properties of a 
particular named file or of the connection to a particular unit. 
Thare are t'jo forms of the INQUIRE statc^ment: inquirt; by file and 
Inquire by unit. All value assignments are done according to the 
rules for assignment statements. 

The IfspUIRE statement may he executed befor^^ whiles or after a file 
is connected to a unit. All values assigned by the INQUIRE 
statement are those that are current at the time the statement is 
executed. 

13.10.3.1 ILlQyiS£.hv^£ii^^ 

The form of an INQUIRE by file statement is: 
IIinuiRE (iliiat) 

where ifiisi is a list (2.11) of specifiers that must contain 

fixactly one flic specif iar snd may contain other inquiry specifiers* 

The Ifiisi: ?'iay contain at most one of each of the Inquiry specifiers 
described in 13.10.3.3. 

Tha form of a file specifier Is: 

FILE = liQ 

''ih2re fiQ is a character expression Hhose value vihen any trailing 
blanks are removed specifies the name of the file being inquired 
about. The named file need not exist or be connected to a unit. 
Th'j YalUQ of tin must be of a form acceptable to the processor as a 
file name, 

13.10.3.2 ii]DyiE£-i2i:-UQii± 

The form of an INQUIRE by unit statement Is* 
INQUIRE (iiliisi) 
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where iuiisi is a list (2.11) of specifiers that must contain 
exactly one extarnal unit specifier (13.3.3) and irtay contain other 
Inquiry specifiers. The iiiiisi niay contain at most one of each of 
th'i inquiry specifiers described in 13.10.3.3. The unit specified 
need not exist or be connected to a file. If It Is connected to a 
filsj the inquiry is being made about the connection and about the 
file connected. 

13.10.3.3 LaiiiiiJ:v-i2S£i£l£r.£j. 

The following i nqu 1 ry spec i f i ers may b'3 usad in either form of the 

INQUIRE statement! 



inSTAT = i2S 
ERR = S. 
EXIST = sx 
QPSIUiD = Qd 
NUMBER = QUfi] 
NAf^ED = nad 
NAME = Id 
ACCESS = a££I 
SEQUENTIAL = S£a 
DIRECT = di£ 
FORM = ia 
FORMATTED = fmt 
UNFORMATTED = uot 
RECL = Lai 
NEXTREC = Q£ 
BLANK = dlQii 



Tha specifiers are i«^scrrbed as folloHss 

lOSTAT = ias 

Is an input /output status specifier (13.7). Execution of an 
INQUIRE statement containing this specifier causes ±0.2, to 
become definv-d viith a zero yalu-.? If no error condition exists 
or with a processor-dependent positive Integar value If an 
error condition exists. 



HRR = s 



(s an error specifier (13.7.1) 



EXIST = SK 



i2i IS 
f an 
y 9 1 u ^^ 



a logical variable or logical array 

INQUIRE by file statement causes £2< 

true If there exists 3 file v^ith 



element. Execution 
to b e a s s i g n e d the 
the specified name; 
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othernise^ e^ Is assignstl the value false. Execution of an 
INQUIRE by unit statement causes £2$ to be assigned the value 
tru*} if the spcicifled unit sxistsi othernise^ g^ Is assigned 
the value false. 



nPEMED = Qd 



nil is a logical variable or logical array element. Execution 
of an INQUIRE by file statement causes cd to be assigned the 
value true if the file specified Is connected to a unitj 
othervnsejj q(^ Is assigned the value false. Execution of an 
INQUIRE by unit statement couses]3iJ to ho assigned the value 
true if the specified unit is connected to a file? otherwise^ 
Qd is assigned the value false. 



NUMBER = n\i21 



QUGl is an Integer variable or integer array element that is 
assljned the value of the external unit identifier of a unit 
that is currently connected to the file. If more than one 
unit is currently connected to the f i I e^ the choice of the 
unit ised to assijn a value to amii is as described belovj. If 
there is an external unit Identifier jj currently connected to 
the file such that eithcrr 

(1) INT(u) has a value In the range 0-999^ or 

{2) BOOL(ii) has a value of tha form f'TAPEis"^ where B is 
an Integer in the range 0-999 with no leading 2ero> 

then the value assigned to aua nil I be in the range 0-999. 
(In C:ise (1) the value assigned to nilB is the value of uj and 
in case {?. ) it is the value of 1^, If external unit 
identifiers of both typt=is (1) and (2) are currently connected 
to the f 1 1 e^ the processor may assign either a type (1) or a 
type (2) value,) Otherwise.* the value assigned to Dum is of 
the form INT{L"f")> where f Is a valid system file nanie. 

NAMED = Qind 

Qfflil is a lOijIcal Variable or logical array element that is 
assigned the value true if the file has a name? otherwises it 
is assigned the value false. 

MAME = fQ 

£n is a character variable or character array element that is 
pssljned the value of the name of the flle<. if the file has a 
name; otherwise^ It becomes undefined. If the name of the 
file contains alphabetic characters they will be returned In 
upper esse. Note that If this specifier appears In an 
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I/nIQUIRE by f I I e statements its value Is not ncicessar I 1 y the 
same as the nani5 given in the FILE= specifiar- For example^ 
the processor may return a file name qualified by a user 
identification, However* the value returned must be suitable 
for use as the vGlue of a FiL£= specifier in an DPEH 
statement. 

ACCESS = £i££ 

2.SLQ is a char^^cter variable or character arrey element that 
is assigned the value SEQUENTIAL if the file is connected for 
sequential access^ and DIRECT if the file Is connected for 
direct access. If there- Is no connection:* 'd^H becomes 
undefined. 

SEQUcHTlAL = ^£0 

^ea is a character variable or character array element that 
is assigned the value YES if SEQUENTIAL is Included In the 
set of alloviad access methods for the flle> NO if SEQUENTIAL 
is not included in the set of allowed access methods for the 
f I I e^ and UNKIIOVIM if the processor Is unahia to determine 
whetiier or not SEQUENTIAL Is Included in the set of allowed 
access methods for the file. 



DIRECT = ili£ 



a character variable or character array element that 
ined the value YES if DIRECT is included in the set of 



dlL is 

is assigi 

alloMed f.ccass methods for the file> NO if DIRECT Is not 

Included In the set of allowed access methods for the file^ 

and UNKNOWN If the processor is unable to determine whether 

or not DIRECT is Included in the set of al levied access 

niethods for th3 file. 



FORM = fill 



fQi Is a character variable or character array element that Is 
assigned the value FORNATTED If the file is connected for 
formatted I nput /ou tput* UNFOR^I ATTED if the fila is connected 
for unformatted input/outputs ?»nd BUFFERED if the file Is 
connected for buffered 1 nput / output. If there Is no 
connections fni becomes undefined. 



FORMATTED = fai 



£fljt; is a character variable or charactf^r array element that 
Is assigned the value YES if FORMATTED Is Included In the set 
of allowed forms for the file/ NO If FORMATTED is not 
included in the set of allowed forms for the files and 
UNKHOVni If tl'ie processor Is unable to determine whether or 

CONTROL DATA PRIVATE 



13-32 
Control Datri Corporation Standard FORTRAN 

83/06/30 

13,0 IHPUT/OUTPUT STATEMENTS 
13,10. 3,3 In<iuiry Specifiers. 

not FORMATTED is included In tha set of alloned forms for the 

, , file. 

UNFORMATTED = UDf 

UCif is a ch?tractsr variable or character array alemant that 
Is assigned the value YES if UNFORMATTED is Included in the 
set of allowed forms for the file^ NO if UNFORMATTED is not 
included in the set of allowed forms for the file> and 
UNKNOWN If the processor is unable to determine whether or 
not UMFDRMATTED is included in the set of allowed forms for 
tha f i le. 



RECL = Liii 




MEXTREC = an 



Q£ is an Integer variable or intsger arr^sy element that Is 
assigned the value n+lji where n is the record number of the 
last record read or written on the file connected for direct 
access. If tha file is connected but no records have been 
recid or written since the connect I on^ d£ is assigned the 
value 1. If the file is not conn acted for direct access or 
if the position of the file is indeterm Insta because of a 
previous error conditlonj» ql becomes undefined. 

BLAMK = tiiQli 

iliQiS Is a character variable or character array element that 
Is assigned tha value NULL if nul I blank control is in effect 
for the f I I €; connected for formatted I nput /outputs and Is 
assigned the value ZERO If zero blank control is in effect 
for the fila connected for forinatte.d input/output. If there 
Is no connection^ or If the connection Is not for formatted 
input/outputs hLuK becomes undefined. 

A vf\riv»ble or arr-ay eh-iment th.Tt Is used as a .specifier In an 
INQUIRE statements or any associated entity^ must not be referenced 
by any other specifier in the same INQUIRE statement, 

E?<acution of an INQUIRG by file statement causes the specifier 
variables or array elements acids Ids 2.3as dLLs iBts and yul to be 
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assigned values only If the value of £iQ Is acceptable to the 
processor as a file name and if there exists a file by that name? 
othernise,' tliey become undefined* Note that qus becomes defined If 
and only if od becomes defined with the value true. Note also that 
the specifier variables or array elements asLSij fO/ LQ.i^ HLp and hlQh 
may become defined only If 2ij becomes defined with the value true. 

Execution of an INQUIRE by unit statement causes the specifier 
variables or array elements niim^ nmd> lu^ 2££> s^a^ S^lLf LB9 iffit^ 
illif> LQi^ ULf and hiais to be assigned v^^lues only if the specified 
unit existsand if a file is connected tothe unit;otherwise^ they 
become undefined. 

If an error condition occurs during execution of an INQUIRE 
statement^ all of the inquiry specifier variables and array elements 
axc-jpt i££: bocome undefined. 

Mote that the specifier variables or array elements e^j and jajj always 
become defined unless an error condition occurs. 

13,10.4 EILil-EQSIIIQiillliS-SIMEUEHIS. 

The forms of th€! file positionina statements are: 

BACKSPACH u 

BACKSPACE (ail2t) 

ENDFIL5 y 

EllDFILH (Biist) 

REWIND ii 

RHV/IND (Biiiii) 
v^here: u is an external unit identifier (13.3.3) 

ailsi; is a list (2.II) of specif lersi 

+ + 

I EUNIT =] ii \ 
] lOSTAT = lea I 

! ERR = S J 

+ ^. 

aiisi must contain exactly one external unit specifier (13.3.3) and 
m^y contain at most one of each of the other specifiers. 

The externa! unit specified by a BACKSPACE/ EHDFILE> or REWIND 
statement must be connected forsequentlal access, 
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Execution of a file positioning staterjient containing an Input/output 
status specifier causes ins to become defined viith a zero value if 
no error condition exists or nith a processor-dependent positive 
integer value if an error condition exists. 

13.10.4.1 aAC}i5E^QiI-.SiaisiD£Qii 

Execution of a BACKSPACE statement causes the file connected to the 
specified unit to be positioned before the preceding record. If 
thara is no preceding records the position of the file is not 
changed. Mote that If the preceding record is an endfile record/ 
the file becomes positioned before the endfile record. 

Baokspacing a file that is connected but does not exist is 
prohibited. 

Backspacing over records written using list-directed formatting is 
prohibited. 

13.10.4.2 .£tin£iL£^Stat2ini2Di:j, , 

Execution of an ENDFILE statement writes an endfile record as the 
next record of the file. The fila Is then positioned after the 
endfile record. If the file may also be connected for direct 
accessj^ only those records before the endfile record are considered 
to have been written. Thus/ only those records may be read during 
subsequent direct access connections to the file. 

After execution of an EMDFILE statement* a BACKSPACE or REWIND 
statement must be used to reposition the file prior to execution of 
any data transfer input /output statement. 

Execution of an ENDFILE statement for a fj|e that is connected but 
does not exist creates the file. 

13.10.4.3 REHILlQ-StatliGlSQiA 

Execution of a REWIND statement causes the specified file to be 
positioned vt its initial point. Note that if the file is already 
positioned nt Its initial point/ execution of this statement has no 
effect on the position of the file. 

Execution of a REWIIID statement for a file that is connected but 
does not cjxist Is permitted but has no effect. 

13.11 R£iIlIl£IIQLiS-ntJ_EUHQIintl_a£££SEtl££S_AHi}_LISI_iI£!i5 

A function must not be rsfcjrsnced nlthln an expression eppearing 
anywhere in an input /output statement If such a reference causes an 
input/output statement to be executed. Note that a restriction in 
the syalu>ition of nxprossions (6.6) prohibits certain side effects. 

CONTROL DATA PRIVATE 



13-35 
Control Data Corporation Standard FORTRAH 

83/06/30 

13,0 INPUT/OUTPUT STATEMENTS 

13,12 RHSTRICTION OM IMPUT/OUTPUT STATEHEHTS 

13.12 H£SISI£IIOi:J_nH.Ili£yiZQyiPyi_SIAI£Q£yia 

If a unit/ or a file connected to a unitj dees not have a|| of the 
properties required for the execution of certain input/output 
statements^ those statements must not r^^fer to the unit. 

13.13 liAtlELISI-ItiEyiZayiEUI 

HAHELIST provides formatted input/output I'lith processor-determined 
editing (1^.7) , 

A yAI:l£LiSI_a£QUE_QBmi provides the means of referring to a NAME LIST 
input/output list. Usage of a ijroup name is the means of specifyinS 
KAIlELIST forFiattlng, A NAMHLIST statement is used to specify a 
MAMELIST group name and the input/output list to be subsequently 
associated with that aroup name, 

MAjIELIST formattlna is established for an Input/output data transfer 
by using a MAMELIST group name as the format identifier £ in a READ/ 
VIRITE/ PRir4T> or PUMCH statement (13.4 (6)). The statement must not 
include an input/output list. 

13.13.1 tiA£i£LISI-SIAI£I]£!iI 

The form of a NAMELIST statement is: 

NAflELIST /ilLCnaiD^/ aloiist C/2LBI12Q1S/ Diflli5i3««« 

where: ii£2Q2!3^ is a NAMELIST group name. Only one appearance of a 

group name In all of the NAMELIST statements of a 
pronrani unit Is permitted* A group name of END is 
prohibi ted. 

niaiisi is s MAMELIST input /output list of one or more 
I tarns.* each of which must be one of the following: 

(1) A var i ab I e name 

(2) An array name 

(3) A virtual (IDENTIFY) array name 

Each name in the list Difllist may be of any data type. 
Bi2ii£.i rnay not contain the nnme of an assumed size array. 
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13.13.2 Mtl£LISI_IliIA-I£AMS££S 

A LiAMELI^I-tiliiSiK Is one or more formatted records that consist of a 
sequence of characters in NAriELIST format (14.7). Execution of an 
input/output data transfer statement with NAMELIST formatting causes 
ona NAMELIST block to be transferred. 

Execution of a VJRITL".* PRINT? or PUNCH statement with NAMELIST 
formatting oiyses ona MAHtLIST block to be written to a file. Data 
are trensferred from Internal storage in the order specified by the 
Input/output list associated with the NAMELIST group name that 
appyiBTs in the output data transfer statement. 

Exacution of a READ statement with NAMELIST formatting causes one 
NAMELIST block to be read from a file. The NAMELIST group name in 
the block read must be tha same? as the group name; In the READ 
statenisnt baing executed. Each variable or array name in the block 
must appear in the input/output list associated with the group name. 
Item names in the block may occur in any order and number. Note 
that an it^jni name niay app'^ar more than once In a blocks possibly 
resulting in more than one definition of an entity. The bjock Is 
transferred viith NAMELIST editing (14.7) to internal storage in the 
order of item name appearanos. Values are transmitted to the 
entities specified by the item names. The definition status and 
value of each entity whose name does not appear in the NAMELIST 
block are unchanged upon completion of the transfer. Note that an 
entity named in th9 associated input/output list but not named In 
the NANELIST block retains its prior de^'lnitlon status and value. 

On inputs an error condition exists if the file is not positioned at 
th.j baginninj of a NAMELIST block. If the currant NAMELIST block Is 
not the one specified In the READ statement^ the Input file will be 
positioned forward to the NAMELIST block corresponding to the 
NAMELIST group name in the READ statement. If the file is initially 
positioned prscsdinj an endfile recor^i^ an end-of-flle condition 
occurs and the actions specified in section 13,6 take place. If an 
endfile record is encountered vihile reading or while positioning 
fornard searching for a NAMELIST blocks sn error condition exists 
•ind the actions speci^'led In section 13.6 take place. 

The effect of executing a data transfer input/output statement with 
MAMELIST formattinj is othernlse as dciscribed in Section 13.9, 

13.1^ mcnQE_ANn-nEcnD£_SIAl£NE!llIS 

The EMCQDE statement is the extended internsl file (13.2.5) deta 

transfer output statement. The DECODE statef.ient is the extended 

internal file data transfer input statement. The forms of the 
statements are: 
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ENCODE (K> ff y) Cioiisil 

DECODE (iS:, f> y) Ci2iist3 

where: 

Is is an unsigned integer constant or int^^gcr variable 
having a positive^ nonzero value. The value 
specifies the number of characters to be transferred 
to or from each record of the file id?2ntifiad by u« 

t is a format specifier (13.14) which is specified as 

one of the folloHing: 

(1) The statement label of a FORMAT statement 
that appears in the same program unit as 
t h e f r m « t i d en t i f I a r 

(2) A character array name or character array 
section (14,1,2) 

U is an internal Pile identifier (13, 3, 3) for an 

extended internal file 

iniisi is an input/output list (13,8,2) specifying the data 
to be trans f err ed 

Execution of an EMCODE statement causes values to be . transferred to 
an extended internal file from the entities specified by the output 
list lEiisJ: Hf sny) and the "format Identifier f. The execution 
sequence^ restrictions and error conditions are as described in 
Section 13,9 for a formatted WRITE statement that transfers data to 
f -1 n I n t e r n a I r i I e • 

Execution of a DECODE statement causes values to be transferred from 
in cjxtendad internal file to the entities sp^iclfled by the input 
list iiiiisj; (if any). Execution proceeds as described In Section 
13,'^ for a formatted READ statement that transfers data from an 
i ntern'il f i 1 e. 

The length of each record of an extended internal file is 
established by the ENCODE statement that causes the file to exist by 
defining or redefining it, Note that the record lenath may foe 
changed by subsequent redefinition. The record length Is measured 
in characters and is the number of characters transferred. It is 
il*( (li+7) /j) characters^ where <j, Is the Maximum numb»3r of characters 
that can be represented by the processor in one numeric storage 
unit. 

Action is unspecified If the totf^l length of all records read or 
written exceeds the number of numeric storage units of the file 
(13.2.5.3) , 
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13.0 INPUT/OUTPUT STATHMSNTS 

13.14 cHCODE AND DECODE STATEMENTS 

Action is unspecified if any element of isiisi is in the file or is 
associated (18«1) Hith the file. 

On outputs a fornat specification (14*1) that Is In the file or is 
associated (13,i) with the file must not be specif iedt 

Moce that an axtenclad internal file may be defined or redefined by 
means other thsn an ENCODE statements such as a Boolaan assignment 
statement* Such means must ensure that the record length is 
established as provided above and in Section 13,2t5«3« 

13.15 ByFE£a^Iti_A^0--ayE££R-QiiI-^I4IE[lEtiI3 

The BUFFER IN and BUFFER OUT statements initiate unformatted data 
transfer. Prograrn execution may continue Immediately while the 
transfer proceeds. 

The forms of th^i statements are: 

BUFFER IM (u^B) Csl^£n) 

BUFFER OUT (iJ^n) CsIj'SO) 

where s 

y Is an external unit identifier ( 13.3. 3) whi ch is not an 

aster Isk 

2 is 811 Intager constant or an Integer variable name. The 
value of o is not significant 

S.1 Is a variable name or an ar ra^i' element name of type other 
than character^ bit or half precision, si specifies the 
first entity of a storsge sequence (18.1,1) to be 
transferred. 

an is a variable name or an array element name of type other 
than chiracter> bit or half precision. SB specifies the 
lasti or possibly on 1 y^ entity of a storage sequence to 
bii transferred. 

Execution of a BUFFER IM statement Initiates the transfer of values 
from one record of an unformatted external file to the storage 
sequence slt««aQ. Execution of a BUFFER OUT statement initiates the 
transfer of values from the storage sequence si.. .SB to one record 
of an unf oriTiatted .external flla. Tha antlties .51 r,nd SD rriust bo the 
same variable or niyst be in the same arrays common or equivalence 
class. Action is undefined If one of these relationships does not 
hold. 

Tho execution sequence* restrictions and error conditions are as 
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13.15 BUFFER IN AND BUFFER OUT STATEMENTS 



described in Section 13.9 for <m input /output data transfer with an 
unformatted external file^ except 

(1) Immediately after the data transfer has been successfully 
initiatadj the processor resumes normal program execution. 

(2) On input/ the storage sequence sl«««SD can be longer than 
tha numbar of values in tha record. The definition status 
of the rsmainlng part of the sequence Is not changed. 

A BUFFER IN or BUFFER OUT data transfer is completed by referencing 
the processor-supplied function UHIT <16.11»6)» Action is 
unopecified \f tha prografF, references or defines the storage 
sequence si. ..SB during an input data transfer^ or if the program 
red;iflnes tha sequence or causas it to become undefined during an 
output data transfer* 
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14,0 FORMAT SPECIFICATION 

A format used in conjunction with formatted input/output statements 
provides Information that directs thfa editing between the internal 
reprssentat i on ond the character strings of a record or a sequence 
of records in the file* 

A format spaci f i cat ion provides explicit editing information. An 
asterisk (-'•') as s format identifier In an input/output statement 
indicates list-directed formatting {1^«6)« 

14.1 £QaiJAI«S2E£.I£ICAIIQL]-iiElHQ[15 
Format specifications may be given! 

(1) In FORMAT statements 

(2) As values of character arrays* character vari ablest or other 
character expressions 

14.1.1 EQSilAl-SlAIEOEtll. 

The form of a FORMAT statement is: 

FORMAT fs 

where fs Is a format specification^ as described in 14.2. The 
st;itsment must be labeled. 

14.1.2 (:dAEAi:iE£-£aSI:lAI>SP£!:iEICAIiOLl. 

If the format identifier (13.4) in n formatted input/output 
statement is 'i cheracttsr array name^ character variable nanie^ or 
other character expression* the leftmost character positions of the 
specified entity must be in a defined state with character data that 
constitute a format specification i-fhen the statement Is executed. 

A character format specification must be of the form described in 
14.2. Note that the form begins with a left parenthesis and ends 
Hith a richt paranthesls. ChRr<?cter data m^y follow the right 
parentliesis that ands the format sped fi cat i on> with no effect on 
the format specification. Blank characters may precede the format 
specification. 

If tha format IdentlfJor Is a cheracter array name* the length of 
the format specification may exceed the length of the first element 
of the array; a character array format specification is considered 
to be a concatenation of all the array eloments of the array In the 
order jiven by array elen?ent ordering (5.3.4). However* If a 
character array element name is specified as a format identifier* 
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14,1.2 CHARACTER FORMAT SPECIFICATION. 

the length of the format specification must not exceed the length of 
the array element. 

If the format identifier (13.4) In a formatted Input-output 
statement \s a nonchapacter array name^ the first m elements of the 
array must be in a defined state such that the Juxtaposition of the 
values contained In the storsgt3 sequence of the first m elements of 
the array (for some positive integer m)^ vilth each numer ic storage 
unit in the storage sequence interpreted as a Boolean valuej 
constitutes a valid format specification when tha statement is 
extvcuted. 

A noncharacter array format specification must be of the form 
described in 14.2. Mote that the form begins with a left 
P8renth3sls and onds Hith ^ right parenthesis. There is no 
requirement on the Information contained In the array following the 
right parenthesis that ends the format specification. Blank 
characters may precede the format specification. 

14.2 Eaati^QE-A-EQEIiAI-SEE^IIEIilAIlQbl 

The form of a ZaLBaiL SEfiSifiSaiiflD is: 

( Cliisil ) 

Hhsra fii^i is a list (2.11). The forms of the filsi Items are: 

C£] eel 

D2iJ 

[£] Is 

Hhere: ad Is a repaatable edit descriptor (14.2.1) 

Q£ll is a nonrepeatab I e edit das criptor (14.2.1) 

Is Is a format specification vjith a non-empty list liisi 

£, is a nonzeroi unsigned^ int^jger constant called a L2E£ai 
saesificalion 

The comma used to separate list I terns in the list fiisl may be 
om I tted as f 1 I ovis: 

(1) BfitHoen a P adit descriptor and en imme^li ate I j' folloning F^ 
E, D^ or G jdlt descriptor (14.5.9) 

(2) Before or after a slash edit descriptor (14.5.4) 

(3) Befora or after a colon edit descriptor (14.5.5) 
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14.2,1 £aiI-QLS(IEI£inES 

An adi± il£ S.£i£i 2i:£!L Js either a repea table edit descriptor or a 
no n repeat a bleedit descriptor* 

The forms of a LiiEiiatahiiS idit dfSilElstQL are: 

IH 
liltii] 

Eli.d 

Lh 

A 
Aji 

Oh 
OH.m 

Zh 

rh 

where: I, fj £j. D^ G^ L^ A.-» 0^ 7.f B.« and R indicate the manner of 
^ 1 d i t i n 

H and £ ara nonzeroj* unsigned* integer constants where ^ 
cannot exceed the value 6. 

£1 and B are unsigned Integer constants 

The forms of a ni2D££££aiabJLi} Udii li£.s£Lin±£i: are: 

•hi h2 •• • hn» 

Qilillb2 ... tin 
"J2lh2 ... bn" 
Ti2 

TLi2 
TRo 

QX 
/ 

S 

SP 

SS 

KP 
QN 
BZ 
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14,0 FORMAT SPECIFICATIOM 
14,2.1 EDIT DESCRIPTORS 

Hhcre: apostrophe^ H.« quote.. T^ TL^ TRf X^ slash* colon? Sy S?f SS^ 
P^ Bfb and BZ indicate the manner of editing 

h is ona of the characters capable of representation by the 
processor 

Q and c are nonzero^ unsigned/ integer constants 

is is sn optionally signed Integer constant 

14.3 iyT£EAaiIQIi-S^IMEEtl-.IH£yiZQyiEyi-LI^I-^LiD-£aBHAI 

The beginning of formatted data transfer using a format 
spec i fi cat i on (13,9, 5,2 •!) i ni t i ates f aLDiSi fijaiDtLoi* Each action of 
forniat control depends on Information jointly provided by: 

(1) the next edit descriptor contained in th^ format 
spGc i f i cat Ion? and 

(2) the next Item In the input/outputlist/ if one exists. 

If an input/output list specifies at least one list Item? at least 
on2 repejit-ibl 2 edit descriptor must exist in the format 
specification* Note that an G?Tipty format spec i fi cat ion of the form 
( ) may be used only if no list items are specified; in this case? 
one input record is skipped or ona output record containing no 
charscters Is written. Except for an edit descriptor preceded by a 
repeat specification^ £ erj^ and a format specification preceded by a 
repeat spcic i f Icat I on^ l(fii2il)> ss format specification Is 
interpreted from left to right, A format specification or edit 
descriptor preceded by a repeat specification £ is processed as a 
list of £ foriiist spaclflcatlons or edit descriptors Identical to the 
format specification or edit descriptor nithout the repeat 
specification, Nota that an omitted repeat specification Is treated 
th3 same as a repeat specification whose value is one. 

To each repeatable edit descriptor interpreted in a format 
specification^ there corresponds ona Item specified by the 
i nput /output list (13,3,2)^ except that a list item of type complex 
requires the interpretation of two F^ Ej D> or G edit descriptors. 
To each P^ Xjr T^ TL^ TR^ S.» SP^ SS^ H^ BU> QZj slash* colon> quote* 
or apostropha edit descriptor* there Is no corresponding Item 
specified by the input/output list* and format control communicates 
information directly with the record, 

Vih^inaver format control encounters a repeatable edl t descr I ptor In a 
format specification* It determines v/hether there is a corresponding 
item specified by the input/output list. If there is such an item* 
it transmits appropriately edited information bet^ean the Item and 
the recordj* and then format control proceeds. If there Is no 
corresponding item^ format control terminates, 
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14,0 FORMAT SPECIFICATION 

14.3 IMTERACTION BETWEEN INPUT/OUTPUT LIST AND FORMAT 

If format control encounters a colon edit descriptor <n a format 
specification and another list item is not specified^ format control 
terminates. 

If format control encounters thie rightmost parenthesis of a complete 
format specification and another list Item is not specif ied> format 
controltermlnates. However^ if another list item is specif iedj> the 
file Is positioned at the beginning of the next record and format 
control then reverts to the beginning of the format specification 
terminated by the last preceding right parenthesis. If there is no 
such precedino right parenthesis^ format control reverts to the 
first left parenthesis of the format specification. If such 
reversion occurs^ the reused portion of the format specification 
must contain at least one repeatable edit descriptor. If format 
control reverts to a parenthesis that is preceded by a repeat 
spac i f i cat i onj? the repeat specification Is reused. Reversion of 
Format control^ of itselfjf has no effect on the scale factor 
(14.5. 7)> the Sj SP^ or SS edit descriptor sign cpntrol (14.5.&)^ or 
the BM or BZ edit descriptor blank control (14, 5. 8), 

14.4 EQSillQMlblS.aY.EnsriAI-CQHIEQL 

After each ly Fj E^ D> G^ L> A* H^ D^ B^ Is R/ quotes or apostrophe 
edit descriptor Is processed^ the file is positioned after the last 
character read or written in the current record. 

After each T.. TL^ TR^ Xy or slash edit descriptor Is processed^ the 
file is positioned as described in 14.5.3 and 14.5. 4» 

If format control reverts ^s described In 14.3j the file is 
positioned in a manne.r idantical to th a viay it Is positioned when a 
slash edit d2scrlptor is processed (14.5. A). 

During a read operationj any unprocessed characters of the record 
ara skipped •jhenever tlie next record is read. 

14.5 EDIIIHG 

Edit descriptors are used to specify the form of a record and to 
diract the editing between the characters In a record and internal 
representations of data. 

A fiaid is a part of a record that is read on input or v^rltten on 

output whan format control processes one I> F^ E> D^ G> L^ A^ H^ 0^ 

B^ Z.. Rj. quotes or apostrophe ed i t descr i ptor . The iisid width is 
the svz'i in char^^ctars of the ^leld. 

The Internal representation of a datum corresponds to the internal 
representation of a constant of the corresponding type (Section A). 
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14.0 FORMAT SPECIFICATION 

14.5.1 APOSTROPHE AND QUOTE EDITING 



The apostrophe edit descriptor has the form of a character constant. 
It causes characters to b?. ^^rltten from the enclosed characters 
{Including blanks) of the edit descriptor Itself* An spostrophe 
Gdi t descr i ptor must not be used on input. 

The width of the field is the number of characters contsinsd in^ but 
not includino^ the rlelimitfng apostrophes. Within the fields two 
consecutive apostrophes with no intervening blanks are counted as a 
single apostrophe. 

The quota elit descriptor causes chflr-^cters to be written from the 
enclosed characters (including blanks) of the edit descriptor 
itself. A quote edit descriptor must not be used on input. 

Tha Hicith of the flald is tha number of characters contained ln> but 
not including^ the delimiting quotes. Within the fields two 
consecutive quotes vii th no Intervening blanks are counted as a 
single quote. 

Note that if a quote edit descriptor occurs within a character 
constant and includes an apostrophe^ the apostrophe must be 
represented by two consecutive apostrophes. 

14.5.2 id.EQIIItiS 

The qH edit descriptor causes character information to be written 
froji the n characters (Includlna blanks) following the H of the dH 
edit descriptor in the format specification Itself. An H edit 
descriptor must not be used on input. 

Mote that If an H edit descriptor occurs within a character constant 
and includes an apostrophe.t the apostrophe must be represented by 
two consecutive apostrophes -j-jhich are counted as one character In 
spaclfylnj Ot 

14.5.3 EDSiiiatiAL-iiniiii^i}. 

The Tj> Jlf TR# and X edit descriptors specify the position at which 
the next character will be transmitted to or from the record. 

Tha position specified by a T edit descriptor may be in either 

direction froii) the current position. On Inputs this allows portions 

of a record to be processed more than once^ possibly with different 
ad i t i nQ . 



The position spacified by an X edit descriptor Is forward from th 

current position. On inputs a position beyond the last character o 

the record msy be specifici if no characters are transmitted fro 
such positions. 
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14.5.3 POSITIONAL EOITir«lG, 

On output/ a Tj^ TL^ TR^ or X edit doscrlptor does not by Itself 
cnyse characters/ to be transmlttsd and therefore does not by itself 
affect the length of the record. If characters are transmitted to 
positions at or aftar the position specified by a T/ TL/ IRj or X 
adit descrlptorj" positions skipped and not previously flHed are 
filled with blanks. The result is as if the entire record were 
intially filled vn" th blanks. i 

On output/ a character In the racopd may be replaced. Hoviever/ a T> 
TL/ TR/ or X edit descriptor never directly causes a character 
already placed in the record to be replaced. Such edit descriptors 
may result in positioning so that subsequent editing causes a 
rep I acefnent. 

14.5.3.1 I«..ILi-2nd_IS-.£diiiDi3A 

The To. edit descriptor Indicates that the transmission of the next 
character to or from a record is to occur at the £th character 
position. 

The TLc edit descriptor indicates that the transmission of the next 
character to or from the record Is to occur st the character 
position £1 characters backward from the currant position. However/ 
if the current position is less than or equal to position qs the ILn 
edit descriptor indicates th?^t the transmission of the next 
character to or from the record is to occur at position one of the 
current record. 

The TR<3 edit descriptor indicates that the transmission of the next 
character to or from the record Is to occur at the character 
position c characters forward from the current position. 

14.5.3.2 ^«EiJitiDi3jL 

The qX edit descriptor indicates that the transmission of the next 
character to or from a record I? to occur at the position n 
characters forward frcn the current position- 

14.5.4 SLASiJ-.£DIIILli2. 

The slash adit descriptor Indicates the end of data transfer on the 
current record. 

On input from a f i ! e connecto-d for sequential eccess/ the remaining 
portion of the current record Is skipper and the file Is positioned 
at the beginning of the next record. This record becomes the 
current racord. On output to a file connected for sequential 
access.* a novi record is created and becomes the last end current 
r ecor d of the file, 

Hote that a record that contains no characters may b^i written on 
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14.0 FORMAT SPECIFICATIOM 
14.5.4 SLASH EDITING. 



output. If the file is an interna! file or a file connected for 
diract accass^ the record is filled nith bl ank ch^r actsrs. Note 
also that an entire record may be skipped on input. 

For a file connected for direct access^ the record number is 
Increased by one and the file is posi ti oned at the bftjinning of the 
record that has that record number. This record becomes the current 
record, 

14.5.5 COLQU-SaillOB. 

The colon adit descriptor terminates format control if there are no 

more items in the input/output list (14.3). The colon edit 

descriptor lias no effect if there are mor^ itcjms in tha input/output 
I ist. 

14.5.6 SjL_S£i._AtiIl-SS_EI)IIIM£. 

Thr3 S^ SP^ \n\ SS ??dit dascr iptors may be used to control optional 
plus characters in numeric output fields. At the beginning of 
execution of each formatted output statement^ the processor will not 
prociuca a p\us In numeric output fields. If an S? edit descriptor 
is encountarad In a f or mat sp-ac i f icr.tl on^ the processor must produce 
a plus in any subsequent position that normally would lack the plus. 
If an SS edit descriptor is ancount or Qd/ tho processor must not 
produce a plus in any subsequent position that normally contains an 
optional plus. If an S edit descriptor is encountered^ the procesor 
reverts to not producing a plus in numeric output fields. 

The Sj SP,» and 3S odit descriptors affect only I, f, £^ o, and G 
editing during the execution of an output statement. The S^ SP/ and 
SS edit descriptors have no effect during the execution of an Input 
statement. 

14.5.7 P_EDIIIIi!£. 

A scale factor is specified by a P edit descriptors Hhich is of the 
form: 

ilP 
where Is is an optionally signed Integer constants called the zsi3l2 

14.5.7.1 Scais-Eacifiij. 

The valu-2 of the scale factor ]s zero ^t the beginning of execution 
of each input/output statement. It applies to a H subsequent I y 
interpreted F^ !:s D/ and G edit descriptors until another scale 
factor Is encountered^ and then th^t scale factor Is established. 
Mote that reversion of format control (14.3) does not affect the 
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14.0 FORMAT SPECIFICATION 
14«5,7«1 Scale Factort 



established scale I'actor. 

The scale factor Ii affects the appropriate editing in the following 

manner: 

(1) On inputs Hith F^ Ej> 0# and G editing (provided that no 
exponent exists in the field) and F output editing^ the scale 
factor effect is that the ^xtarnally represented number 
equals the Internally represented number mult I plied by I0^=*!s« 

(2) On inputs vj i th F> Es D^ and G editing^ the scale factor has 
no ^ff^ct if thoro is an exponent in the fleldt 

(3) On outputs vjith E and D editinjj the basic real constant 
<4t4,l) part of the quantity to be produced is multiplied by 
10-'=-5=K and th3 -exponent is reduc^icl by K« 

(4) On outputs with G editings the effect of the scale factor is 
suspended unless the magnitude of tho datum to be edited Is 
oytsidi! ths ran^je that permits the use of F editing. If the 
use of E editing is required? the scale factor has the same 
effect as with E output editing. 

14.5.0 Bli-.AiiQ-.aZ-£I)IIIli£. 

The 3N and BZ edit descriptors may be used to specify the 
interpretation of blanks^ other than leadlnj blanks:* in numeric 
input fields. At the beginning of exacutlon of esch formstted Input 
statement/ such blank characters are Interpreted as zeros or are 
ignored depending on the value of the BLAHK= specifier (13. 10.1) 
currant I y in effect for the unit. If a BN edit descriptor Is 
encounter ed in a forrnat specification? all such blank characters In 
succeeding numeric input fields are ignored. The effect of ignoring 
blanks is to traat the input flo. Id ns if blanks had bsen removed^ 
the remaininj portion of the field right Justified? and the blanks 
replaced as leading blanks. Hov>ieverj» a field of all blanks has the 
value zero. If a BZ edit descriptor is encountered in a format 
specification/ all such blank characters in succeeding numeric Input 
fields are treated 'IS zeros. ^ 

The BN and BZ edit descriptors affect only I? F/ E? D? G? 0? and Z 
editlnj during execution of an input statement. They have no effect 
during execution of an output statement* 

14.5.9 NULlERI£_£DIIIl:ifi 

The 1/ Py Es Dj and G edit descriptors are used to specify 
? nput /output of integer? realj double precision? half precision^ and 
complex data. The following general rules apply: 

(1) On input? leading blanks arc not signiflcent. The 
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14.0 FORHAT SPECIFICATION 
14,5,9 NUMERIC EDITING 

i nterpr atst i on of bl>\nks^ othor than leading blanks^ is 

deterrnlned by a combination of any BLANK= specifier and any 

BN or BZ blank control that is currently in effect for the 

unit (14«5,8), Plus signs may bo omitted, A field of si I 
blanks Is considered to ba zero, 

(2) On inputs with F^ E^ 0^ and G editing^ a decimal point 
appearing in the input field overrides the portion of an edit 
descriptor that specifies the decifiial point location* The 
input field may have more digits than the processor uses to 
approximate the value of the datum. 



input field may have more digits 
approximate the value of the datum. 



(3) Qn outputs the representation of a positive or zero internal 
value in the Field must not be prefixed viith a plus unless a 
SP edit descriptor is In effect. The representation of a 
neoetive Intarnal value In the field must be prefixed nlth a 
minus. Hoviaver^ the processor must not produce s negative 
signed zero in a formatted output record. 

(4) On outputs the representation is right justified in the 
field. If the number of characters produced by the editing 
is smaller than the field viidth/ leading blanks will be 
inserted in the field. 

(5) On outputs if the number of char^icters produced exceeds the 
field viidth or if an exponent exceeds its specified length 
using the EH«ilEe or Gh.iIEs edit descriptor/ the processor 
Hill fill the entire field of vUdth w with asterisks. 
Hovreverji the processor must not produce asterisks if the 
fiald width is not Qxceeded nhen optional characters ere 
omitted. Note that when an S? edit descriptor is In effect/ 
a plus is not optional (IA.5.6). 

1^.3,9.1 laiansL-Eiliiina 

ThcJ I'd and In- 12 edit descriptors Indicate that the field to be 
edited occupies vj positions. The specified input/output list item 
iiiust be of type Intejer. On Inputs the spec 1 f I ed 1 ist Item will 
become defined with an integer datum. On output/ the specified list 
Item must be defined with an integer datum. 

On input/ an Iid«ia edit descriptor is treated identically to an Ih 
edit descriptor. 

In the input field/ the character string must be in ihfi form of an 
optionally sijned Intejar constant/ except for the Interpretation of 
blanks (14.5.9/ item (1)). 

The output field for the In edit descriptor consists of zero or more 
lending blanks followed by a minus If the value of the internal 
datum Is negative/ or an optional plus otherwise/ followed by the 
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14.0 FORMAT SPECIFICATILW 

14. 5. 9.1 Intener Editing 

magnitude of the internal value in the form of an unsigned integer 
constant without leading zeros. Note that an integer constant 
always consists of at least one digit* 

Tha output field for the Ivi«iB edit descriptor is the same as for the 
Iw adit descriptors except that the unsigned Integer constant 
consists of at least m digits and^ if necessary^ has leading zeros. 
Tho yalua of a must not exceed the value of jf. If m is zero snd tho 
value of the internal datum is zero^ the output field consists of 
only blank characters^ regardless of the sign control in effect. 

14.5.9.2 S£3iA-D2ybi«-.i:-A-anii-Baif._r_P££i£isli2n-£ill±lDii 

The F. tf D> and G edit descriptors specify the editing of real> 
'iouble precisions half precisions and compIeK dat?.. An Input/output 
Mst iten corresponding to an Fs Ey D* or G edit descriptor must be 
reals double precisions half precisions or complex. An input list 

I tam iii\\ become defined uith a datum Mhose type Is th^ same ss that 
of tha list Item, An output list ite^i must be defined with a datum 
whose type is the same as that of the list item, 

14,5.9.2.1 E-EDIILiiG 

The FH'd 2d It descriptor Indicates that the field occupies a 
posit ionss the fractional part of which consists of r| digits. 

The input field consists of an optional signs followed by a string 
of digits optionally containing a decimal point. If the decimal 
point is omitteds the rightmost ij digits of the string^ ^^ith leading 
zeros assumed if necessarys are interpreted as the fractional part 
of the value represented. The string of digits may contain more 

II jits than a processor uses to approximate the value of the 
constant. The basic forn may be followed by an exponent of one of 
the folloviing forms: 

(1) Signed integer constant 

(2) E folloiied by zero or more blanks^ followed by en optlonslly 
signed Integer constant 

(3) D followed by zero or more blankss followed by an optionally 
signi^d Integer constant 

(4) S followed by zero or more blanks^ followed by an optionally 
signed integer constant. 

An exponant containing a or an S is Processed identically to an 
exponent containing an E. 

The output field consists of blankss if necessarys followed by a 
minus if the Internal '/alue is negative's or an optional plus 
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14.0 FORMAT SPECIFICATION 
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otherwise^ follovrad by a string of d|r;iits that contoinK a decimal 
point and represents the magnitude of the Internal valus^ as 
modified by the established scale factor and rounded to fi fractional 
digits. Leadin'j zaros sre not pf»rmltted except for an optional zero 
I Riroed i ata I y to the laft of the decimal point if the magnitude of the 
value in the output f I el d is less than one. The optional zero must 
appear if there would otherwise be no digits in the output field. 

14.3.9.2.2 II-.AtiQ-.Dl-£QIIiLl£ 

The Ew.fJ/ DH«ii^ and Evi«£lH£ edit descriptors indicate that the 
external field occupies iii positions^ the fractional part of nhich 
consists of ii digits^ unless a scale factor greater than one Is In 
QffQOtj' and the exponent part consists of a digits. The 2. has no 
effect on Input* 

The form of the input field is the same as for F aditino 
(14.5.9.2.1). 

The form of the output field for a scale factor of zero is: 

C±3 E03 . >lli52...2Sd £2i£ 
nharai ± signifies a plus or a minus (14.5.9) 

]il2<2. • .2<;d are the d most significant digits of the value of 

the datUiii after rounding 

3.^0. is a decimal exponent* of one of the following forms: 



Forri of 
Exponent 

^±JJlZ2 



+ . + 

Edit 1 Absolute Value 

Descriptor ] of Exponent 
HH^d J Ji2xnl^99 

J 9n<}e2i£!^90O J ±21^223 

+ + + 

! EH-dEe ! j£ii£l^{10**£)~l I E±2l22...ze 

4 . « + 4- 

DH-d J IilX.»i^99 I 0+21x2 

+ . + — -. 

I 99<J:3iin{^999 I ±2lz223 

+ . + 



where z is a dijlt. The sInn in the expon-Dnt Is required. A plus 
sljn must be used If the exponent valua is zero* The forms Esi.il and 
Dw.r] must not be used if IfiiJEi > 999, 

Tha scale factor h controls the declnal normalization (14,5.7) • If 
"^d < K £ 0/ the output field contains exactly 'K« leading zeros and 
£j - lis! significant dijlts after the decimal point. If < 1< < d + 
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14,0 FQRHAT SPECIFICATION 
14,5,9,2»2 AND D EDITING 



Z» tha output fia.rd contains exactly li significant digits to the 
left of the decimal point and d - Is + 1 significant digits to the 
rloht of the decimal point. Other values of ]i ars not permitted. 

14,5. ^>. 2, 3 il-llQIIHii] The Gv}»d and Gw.dns edi t descr 1 ptor s indicate 
that the axtDrnal field occupies w positions^ the fractional part of 
vihich consists of <J digits^ unless a scale factor greater than one 
is In effects and the exponent part consists of 2 digits. 

G input editing is the same as for F editing < 14. 5«9«2 .1) • 

Tha method of r ^present et Ion in the output field depends on the 
majnltude of the datum being edited. Let N be the magnitude of the 
internal datum. If N < 0.1 or H 2 10^*d^ Gn«lJ output editing is the 
!ia!n<2 as kPEii-ii output editing and GH.dHfi output editing is the same 
as kPEw.dES output editing^ where is is the scale factor currently in 
affect. If \\ Is greater than or equal to 0.1 and is less than 
10**d^ the scale factor has no effect* and the value of N determines 
thci editing as follows: 



Magn I tude of Datum 



Equivalent Conversion 



+ — 



+ — , ^ + 



0.1^M<1 

1;^H<10 



F(H"-d). (d-1), flCh') 



io^:*(^-.2)^H<io^:='?^{ii-i) 

10**{(i~l)^N<10**rj 



F{h-D)»0^ JD{«l2») 



+ + + 

v^herei t is a blank 

D is 4 for Gn.ii and e+2 for Gn.ilEfi 

Hota that thi; scala factor has no effect unleijS the magnitude of the 
d«tua! to be edlt^^d Is outside of the range that permits effective 
use of F ed i t i ng • 

14. 5.9.2.4 CDUHLEX-EQIIILlfi 

A complex datum consists of a pair of separate real data; therefore^ 
the editing is specified by two successively interpreted F^ E^ D^ or 
G edit dascriptors. The first of the edit descriptors specifies the 
real part; the second specifies the imaginary part. The two edit 
descriptors may be different. Note that nonr epeatab I e edit 
descriptors may appear between the two successive F^ £> D^ or G edit 
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descriptors* 

14.5.10 U-£QiIXa£ 

The Lm edit descriptor indicates that the field occupies a 
positions. The specified input/output list item must be of type 
loolcal. On Input* the list item will become defined viith a logical 
datum. On output^ the specified list item must be defined with a 
looical dstus!i» 

Ths Input field consists of optional blanUsj* optionally followed by 
a dec i ma I po i nt^ followed by a T for true or F for false. The T or 
F miy be follo'j^od by additional characters in the field. Nota that 
the logical constants .TRUE, and .FALSE. are acceptable Input 
forms. 

The output field consists of vj-^l blanks foliovjed by a T or Fj as the 
value of the Internal datum is true or falser respectively. 

14.5.11 ^^EQIIlIiS 

The AChI edit descriptor may be us«d \]\ th an input/output list Item 
of type character (14.5,11,1)^ and the A^i edit descriptor may be 
used with an input/output list item of any noncharactor type except 
bit (14.5.11.2). 

14. 5.11. 1 A-fllitiQa-fll^^hBXacieL.Data 

If a field width h is specified with the A edit descriptors the 
field consists of vj characters. If a field width w is not specified 
vi\tU the A adit descriptor j the number of characters In the field Is 
the length of the character input/output list item. 

Let ien be the length of the input /output list item. If the 
sp:iclfled field width ji for A input Is greater than or equal to i£Q> 
the rightmost Igq characters will be taken from the input field. If 
th3 specified field width Is less than LsiBj the h characters will 
appear left-Justified with i£D""iJ trailing blanks in the internal 
representation. 

If the specified field width h ^or A output is greater than iefl^ the 
output field villi consist of ii-i£Q blanks followed by the i^n 
characters from the internal representation. If the specified field 
HlJth i? is less than or equal to i£Q^ the output field Hill consist 
of the leftmost a characters from the internal representation. 

14.5.11.2 A-.£4;lil:iQa-£!f-BilQ£l2ilLa£li£L«[>2Lill 

vfhen used with an input/output list item of nohcharacter typej the 
Aw adit d*33criptor indlcstes character code convarsion (Appendix A) 
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14.5.11.2 A Editlnj of Nonchsracter Data 

of M char-ictars^ nlth I sf t justification and trailino blank fill. 
The field viidth specifier w must be a positive nonzero Integer for 
this usage. In tha foMoMlng^ a is tha maximum number cf characters 
that can be stored in the datum at one time^ and h is the number of 
bits in a slnOl^ character storage unit. 

nn input,* If Li is less than or equal to ^^ the next h characters 
from the record are converted to w*]^ bits of character code^ and ere 
suffixed with (ii-.H) charactar code blanks. The result Is 
transmitted to the noncharacter datum corresponding to the next 
input/output list item. if ^ is great ar than z^ (v'-ii) characters 
from the input record are skipped; the next a characters are 
convertcid and tr anstiii tt sd to the datURi. 

On outputs If ji Is less than or equal to a^ the leftn^ost (most 
significant) "^^h bits of the list item datum are converted and 
transmitted to the output record. If h Is gr'sater than a^ m-^ 
leading blanks are transmitted^ fol loafed by a characters converted 

from the datuni. 

14.5. 12 £SQCESSnE=I}££MD£tlI-£QIIIti£ 

Th-ii Rj G and Z edit disscriptors are used^ and the A edit descriptor 
may be usedj to specify processor-dependent editing for the physical 
contents of numeric storage units. The editing consists of direct 
octal^ hexadecima} or character code conv^^rsion between internal 
storaje and character strings of a record* Conversion proceeds on a 
blt-by~bit basis? no numeric or logical significance is attached to 
tha data. Any data type except types bit and character may be 
adit^^d with the R edit descriptor. Any data type^ except blt^ may 
be edited with the A^ 0^ and Z edit descriptors. 

The number of bits corresponding to an external character varies 
Hith tha ^jdit descriptor. 



14.5.12.1 E-iliJiiiDiJ 

The Rvj edit descriptor indicates character code conversion (Appendix 
A) of L! charactersj* with right Justification and laading zero bit 
fill. In tha following^* a Is the maximum number of characters that 
can b -3 stored in the datum at one time^ and h is the number of bits 
In a s i n9 I e char actep storage unit. 

Gn inputs if w is less than or equal to zs (^-•H)-"''b leadlnQ zero fill 
bits are transmitted to the leftiiost (most significant) bit 
positions of the list item datum> followed by the next i{ characters 
of the input recorl converted to cbaractar cods. If u is greater 
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14,0 FORMAT SPcCIFICATIDM 
14.5,12,1 R Editincj 



than 3/ (h-B) 
are converted 



input characters are skippadj the next b characters 
to character code and transmitted to the datum* 



if H is l9ss than or equal to a^ the rightmost (least 
u''^h bits of the list item storage unit are extracted 

,,. ng inth the leftmost extractyd blt> converted to w 

characters and transmitted to the output record. If vj is greater 
than B^ M-*a leadinD blank characters are transmitted^ followed by a 
characters conv^srttid from the storage yn i t. 



Hn outputs 
s i gni f i cant) 
ancb beginning 



14. 5. 12,2 Q^Eiimn^ 



The Ow and Ow.io edit descriptors indicate octal conversion of h 

characters. b is significant only on output* Each character 

corresponds to 3 physical bits. The octal digits and bit values 
a r a J ■ 



J Octa 


1 Di 


Qi 


t 


1 
1 


Bit Value 













000 




1 








001 




2 








010 




3 








Oil 




4 








100 




5 








101 




6 








110 




7 








111 



On inputs the input field consists of zaro or more leading blanks 
fol!o}.!ed by a string of octal digits. GptionaJly the string may 
contain embedded blanks; each blank is significant and is equivalent 
to an octal digit zero. The string may contain a maximum of q. 
charfictijrs including embedded blanks* but excluding leading blanks, 
n = (b+2)/3 vihere b is the number of bits in the list item datum. 
If o'?3 i • > greater than h thtjn the leftmost {fi*3-ii) bits 
corresponding to the Input field must be zero. For a string of n 
characters^ (a~D)''^3--2 leading zero fill bits ara trsnsmitted to the 
leftmost (most significant) bit positions of the list Item storage 
unit> follovjed by the q characters of the input record converted to 
Q*3 bits. 



If the input field contains no characters except the 
blanks the field is int-^r prated ?s equivalent to zero (0), 



character 
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14.0 FORMAT SPECIFICATION 
14.5,12,2 Editlnj 



Hn outputs if a is less than or equsl to b/3i ttie rightniost h*3 bits 
of the list item storage unit are converted to octal digit 
characters and transmitted to the output record* If vi is greater 
than a* M~fl ieadlno blank characters are transmitted^ followed by £1 
octal digits converted from the storage unit. If i^ is equal to q^ 
all the bits of tha list \tew, datum are converted to octal digit 
characters and transmitted. 



If 
va 



D] is specified on outputs the value of fS must not exceed 
ue of li and the foil oviing additional editing applies: 



th5 



maximum of H"-m leading octal zero characters are replaced wl 
ank characters^ proceeding from left to right. A minimum of 
tal digit characters are not replacad. 



A maximum 

bl 

oct 



th 

m 



If the number of octal digit characters produced exceeds the field 
vndth vj^ the entire field is filled with asterisks. 



14.5.12.3 Z^EHUiQ-l 



Th^ Z]d and Z^j.ai edit descriptors indicate hexadecimal conversion of 
H characters. m is significant only on output. Each character 
corresponds to 4 physical bits. Tha he:xndecim£l digits and bit 

V n 1 1 ! & ?: fl r ft : 



4— 

1. ,.... 


Ilex a dec i mal 


+- 

Digit J 


Bit Va lue 









0000 




1 




0001 




2 




0010 




3 




0011 




4 




0100 




5 




0101 




6 




0110 




7 




0111 




8 




1000 




9 




1001 




A 




1010 




B 




1011 




C 




1100 









1101 




F: 




1110 




F 




1111 



+ + + 

In inputs thti input field consisti^ of zero or more leading blanks 
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follov^ed by a string of hexadecimal digits. Optionally the string 
may contain embedded blanks? each blank Is significant and Is 
aqulvalent to an hexadecimal dlijit zero. The string may contain a 
maximum of z characters Including embedded blanks^ but excluding 
Ifiadino blanks, z - {li+3) /4 iihera h is the number of bits in the 
list item datum. If 2*4 is greater than 12 then the leftmost {2*4-ii) 
bits correspond i no to the input field must be zero. For a string of 
n characters^ (2--a)=^4 leading zero fill bits gre transmitted to the 
leftmost (most significant) bit positions of the list item datum^ 
follonad by the o characters of the input record converted to b'^4 
bi ts. 

If tha input field contains no characters except the character 
blanks the field is intarprated ss equivalent to zero (0), 

Gn output^ if w is less than or equal to h/4^ the rightmost h*3 bits 
of the list item storage unit are converted to hexadecimal digit 
characters and transmitted to the output record. If a is greater 
than 2^ vi~Z laadinij blank characters are transmitted^ follovied by z 
haxadecimal dljits converted from the storage unit. If ^ Is equal 
to Zf all the bits of tha list item storage unit are converted to 
hexadec I !!]a} digit clvaractsrs and transmitted. 

If a is specified on output^ the value of m must not exceed the 

v?;lye of M and the follovdng additional editing applies? 

A maximum of h*-13 leJJdinO haxadecimal zero chcrficters are 
rep'?^ced with blank characters^ proceeding from left to right, 
A minimum of e hexadecimal digit characters are not replaced. 

If tha numbxir of heKadecimal diijit characters produced exceeds the 
field Hidth Hi the entire field is filled with asterisks, 

14.5.13 a^EQIIILiS 

Thi Bw edit descriptor formats b It data during input/output 
opor at i ons . 

On Inputs tho valu-^a in the Input field Is converted to type bit and 
is fissigriiid to the Input list item. One bit is input. The Input 
listitemmustbeoftypebit, 

Thtt data th it appears in a B Input field must be In the proper 
format. The B input field must contain a or 1 in the rightmost 
column; all other columns must be blank, 

Gn output,* the value of the output list item is converted to a 
strinj of chsT acters. These characters are placed In the output 
field. One bit is output. The output list item must be of type 
bit. 
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Tha B output field cont^iins a or a 1 if the value of the output 
list Itam \s B"0" or B"l"^ respectively. All other columns are 
blank. 

14.6 Li:^I=Qig£CI£2«£QailAIII!i£ 

The characters In one or more list-directed records constitute a 
sequence of values and value separators. The end of a record has 
the same effect as a blank charscter^ unless it is i^ I thin a 
character constant. Any sequence of two or more consecutive blanks 
is treated as a single blanks unless it is viithin a character 
constant. 

Each vslue Is aithar a constants a null valuer or of one of the 

f or nis s 

where £ Is an unsigned.* nonzero/ integer constant. The r*£ form is 
equivalent to l successive appearances of the constant Qy and the £* 
form is equivalent to £ successive null values. Neither of these 
f orris /'\ay contain eiiibedded blanksj* except where permitted 'within the 
constant a, 

A :i3ill^ SSaiiL^tQL is one of the following! 

(1) A comma optionally preceded by one or more contiguous blanks 
and optionally <^ollov?ed by ona or more contiguous blanks 

(2) A slash optionally preceded by one or more contiguous blanks 
and optionally followed by one or more contiguous blanks 

(3) Qn*3 or mora continuous blanks bctnesn two constants or 
foil owing the last constant 




double 
precision.* or half precision^ the input form is that of a numeric 
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input field, a DLlill2Li<:i iDBUt Li^id is a field suitable for F 
aditing (14.5.9.2) which is assumed to have no fractional digits 
unless a decimal point appears viithin the field. 

When the corresponding list Item is of typo complsx^ the Input form 
consists of a left parenthesis followed by an ordered pair of 
numeric input fields separated by a comma;' and followed by a right 
parenthesis. The first numeric input field is the real part of the 
complex constant and the second is the iinaolnary part. Esch of the 
numeric input fields may be preceded or followed by blanks* The end 
of a record may occur betwe-tsn the real part and the comma or bctnuen 
the comma and the imaginary ps^rt. 

Vlhen the corresponding list item is of type bit^ the input form is 

the same as a B input field, 

VJhen the corresponding Input list Item Is of type Boolean^ the Input 
form is one of the following: 

(1) an octal constant (4. 9.1. 2)^ 

(2) a hexadecimal constant {^.9.1.3).» 

(3) a Hollerith constant of the form ''X" (4,9.1.1)> 

(4) an integer Input fields or 

(5) a numeric input field. 

VI h an the corresponding list Item i ? o f 
must not Include either slashes or 
characters permitted for L editing (14.5.10). 



typcj 1 ogi cal y 
commas among 



the input form 
the optional 



Vihen the corresponding list item Is of type cherf^cter^ the Input 
form consists of a nonempty string of characters enclosed In 
apostrophes. Each apostrophe within a character constant must be 
represented by tvo consecutivo apostrophes without an intarvening 
blank or end of record. Character constants Jiiay be continued from 
the end of one record to the beginning of the next record. The end 
of the record does not cause ^ bl.?.nk or any other character to 
hecoma part of the constant. The constant may be continued on as 
many records as needed. The characters blanks comma> and slash may 
appear in character constants. 

Let iiia btj thii hinjth of the 1 } st 1 1 emj and let w be the length of 
the character constant. If ieQ is less than or equal to ii^ the 
leftnost iso characters of the constsint are transmitted to the list 
item. If ien is greater than w> theconstant is transmitted to the 
leftniost u characters of the list item and the rerncining lan-h 
characters of the list item are filled with blanks. Note that the 
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14.0 FORMAT SPECIFICATIGH 
14,6,1 LIST-DIRECTED IMPllT 



effect Is as though the constant were assigned to the list item In a 
character assignment statement {10,4). 



A null value. Is specified by having no characters betwa 
value separators.* no characters preceding the first val 
in the first record read by each execution of a list-d 
statements or the l'J' fornu A null value has no ef 
definition status of the corresponding input list 
input list item is definedj* it retains its previous val 
undcjfined^ It rem a Ins undefined* A null value may n 
either the real or imajlnsry part of a complex cons 
single null value may represent an entire complex co 
that the end of a record follov^iing any other separat 
Hlthout s 'jpar at ing blanks^ does not specify a null valu 



en successive 

ue separator 
irected input 
feet on the 
item. If the 
u e ; if it is 
ot be used as 
tantj but a 
nstant. Note 
r > H 1 1 h or 



A slash encountered as a value separator during execution of a 
list-directed input statement causes termination of execution of 
that input statement 'vfter the assignment of the previous value. If 
there are additional Items in the Input list/ the effect is as If 
null values had been supplied for them, 

Hoto that all blanks In ^ list-directed Input rocord are considered 
to be part of some value separator except for the followings 

CI) Blanks embedded In a character constant 

(2) Embedded blanks surrounding tha real or Imaginary part of a 
compl ex constant 

(3) Leading blanks in the first record read by ecch execution of 
a I i s t-di r ^^cted input statements unless Immediately followed 
by a s I ash or comma 

14.6.2 LISI=niR£ClEE>-DyiEUl 

The form or the values produced }s the same as that required for 
input/ except as noted otherwise, VMth the exception of character 
constants/ th"j values are separated by one of the fol lowing: 

(1) One or more blanks 

(2) A comma optionally preceded by one or more blanks and 
optionally foHo'-'Cid by one or more blanks 

Th 2 processor nay begin nev-f records as necessary/ but/ except for 
complex constants and character constants/ the end of a record must 
not occur nithln a constant and blanks must not appear v-?ithln a 
constant. 

Bit output constants are produced with the effect of a B edit 
descriptor. 
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Boolean output constants are producer] jn the form Z^'zC^l***"^ where 

Z, is a hexadecimal dioit* Leading zeros are suppressed. 

Logical output constants are T for the value true and F for the 
V a I u e f a I s . 

Integer output constants are produced with the effect of an Im edit 
descriptor^ for some reasonable value of u* The value chosen for h 
must be large enough to hold all of the significant digits of the 
integer as well as the sign if it is negative, 

Real> double prscision^ and hsif precision constants are produced 
Hith the affect oT either an F edit descriptor or an E edit 
descriptors depending on the magnitude x of the value and a range 
lO^-rdl i X < l0*-i=*d2-* Hhare dl end d2 are -6 and +9> resp<^ct i vc ly. 
If the magnitude x Is within this range^ the constant is produced 
using OPFvi,fl; otherwise^ lp£H«dE£ is used. Reasonable 
processor-dependent values of Uf ds and £ are used for each of the 
cases involved. 

Complex constants are enclosed in p arenthesess vilth a comma 
separating the real and imaginary parts. The end of a record may 
occur betv-jeen the comma and the imaginary part only if the entire 
constant is as Ion a as^ or lonjer than/ an ftntiro record. The only 
^iri^bodded blanks permitted within s complex constant ara betHeen the 
comma and the end of a record and one blank at the beginning of the 
next record. 




Slashesj ?>s value separators/ and null values are not produced by 
list -directed formatting. 

Each output racord begins with a blank character to provide carriage 
control when the record Is printed. 

14,7 lii^a£LlSI-£nRMIII!4{^ 

The form of i NAME LIST block Is one of the followlnj: 
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f»ii£Dnaiiii2 DaiaxaiC^naiaxBl-"' • • • c^ i^*CEMD3 
$£2££QaE£ Ba£iiy£iCj»liai2X2i3«« . C> JECENDl 
Sii££Diaiiis nai33iiaiC>Daa2iai3.«.c^ ISCENDI 
Hhare: a£ijaail]£ is the group name o^ the block 
QBlilXiii is one of the forms: 

aDaa£ns)3 = C£-nx:C>r.£-]323 • t. 

^QaaadiJiZ) ~ d 

anaiDfiCs) iil^iZ) - c 

wheraJ ^nzBt 's a variable name 

c Is a constant 

i]QaiI£ is an array nan^e 

s is an array subscript in which each 
subscript axpr ess ion Is cin integer constant* 
The number of subscript expressions in s 
must be equal to the number of dimensions in 
i:he array declarator for tha array name* 

£ is an unsigned^ nonzero^ integer constant 

il and 12 ar-j integer con.stants 

(il^iZ) designates a character substring of 

^ IDaaa or a aDscis of type chsfRcter 

The optional form £*c is equivalent to £ successive 
appearances of the constant £• 

A MAMHLIST block consists of one or more formatted records. The 
initial record of the block may contain only $fj£eoaB£^ f«2££DaBil.« or 
one of these followed by one or more occurrences of oainyai forms. 
The initial J^nd subs'^qyent records of a NAFiELIST block msy end with 
a comma tliat occurs after a constant £ or a comma that occurs after 
thci real part of a complex constant that Is continuQcl on the next 
record. The initial or subsequent records of a NAMELIST block may 
end v^jith a constant c provided that the record immediately precedes 
a record containlnj only $> ^EMD^ & or SLND. The finel record of a 
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MAHELIST block must end viith $^ SEND, S or SEND, Note that the 
final record may bcj tho initial record. For example^ 

&GROUP V=:3.7^ SEND 

In each record of a HAHELIST blocks column one Is reserved for 
c:arr i age contro I • On inputs the character in column one is Ignored. 
On outputs a carria9<^ control character is placed in column one of 
each record, A HAHELIST block is written in columns tno through the 
and of each input record. 

The case of alphabetic letters i n xiLBQ^JIl^^ VQ^nie^ aname^ $END^ and 
SEND is not significsnt in identifying tho entity, 

within the str I nos : 



A blank must not occur 


(1) 


$3I:EQB!3<2 


(2) 


£iiL£Qai:jii 


(3) 


vQame 


(4) 


aQBOJfiCCi) ] 


(5) 


iiQflG]£(il5i£) 


(6) 


il£liia§(s)(ilsi2) 


(7) 


;;.HND 


(B) 


€£HD 



Forms (1) and (2) must be followed by an end of record or one or 
more blanks before forms (2) through (0) may appear. Forms (7) and 
(3) must be separated from the other forms by a comma or one or more 
blanks or by the and of a record. 

14,7.1 tlAtliiUSI-iblEUI 

Th2 group naine of the MAMELIST block being transmitted must appear 

in the READ statement being executed. Sach variable name and array 

name in the block must appear in the f^AMELIST group referred to by 
th'j READ statement. 

Each constant c must agree with the type of the corresponding list 
i t^im .IS fo I I oyjs : 

(1) A lojicalj" character* b 1 1^ or complex constant must be of 
the same type as the corresponding input list item* . A 
character constant is trunnp.ted from the right or extended 
to the right viith blank characters^ If necessary^ to yield a 
character constant of the same length as the corresponding 
character variable^ array element^ or substring. 

(2) An Integtir/ real* half precision:? or double precision 
constant nay be used for an integer^* realj half precision^ 
or double precision input list item. The constant is 

CONTROL DATA PRIVATE 



14-25 
Control Data Corporation Standard FORTRAN 

83/06/30 

14,0 FORMAT SPEC IFICATIOM 
14,7,1 MAHSLIST INPUT 

convGrted to the type of the list item during transmission* 
For conversion to rea1j» half precision^ or double precisions 
an integer constant has an Implied decimal point to the 
r I ght of the r I ghtmost digit. 

The number of constants specified for a list item must not exceed 
the size of the list item. 

Tha form yjQaasCs ) = Cl*3£C^ [£*1<23 . « . causes the first constant to he 
assigned to bdjes (s). Each subsequent constant is assigned to the 
array elenient with a subscript value (Table 1) one greater than the 
previous element assigned tot The size of aflaiDfi must not be 
exceaded. 

Tha forms of a logical constant having the value true are! 

T 

.T, 

.TRU£. 

The forms of a logical constant having the value false are: 

F 

.F. 

.FALSE, 

A character constant must have the same form as If it appeared in a 
statement of tha executable programj i.e., the delimiting 
apostrophes nust be present. If a character constant occupies more 
than one recordj* each continuation of the character constant must 
extend to the end of each record precadino a continuation record. A 
choractar constant continued across a record begins In column two of 
the continuation record. 

The forms of integer, real^ double precisions half precision, and 
complex constants are as dsscribed for list directed Input (14.6.1) 
oxcept that embedded blanks are allowed. 

A Boolean constant must be an octal constant (4.9.1.2), a 
hexadecimal constant (4.9.1.3), or a HoH-^rlth constant of the form 
"f^' (4.9,1.1). 

The character blank is significant only In a chfjracter constants or 
Boolean constant of the form "f". The BLAMK= specifier has no 
effect on NA'IELIST editing, A c form must contain one or more 
nonblank characters and be a yj^jIIH constant or an error condition 
o^<ists. Hot9 that a £ of typo charncter will a}v?ays contain at 
least two nonblank characters due to the apostrophes surrounding the 
rih'iracter constant. 
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14,7.2 t^AOELISI^QyiBiil 

On Output^ each MAMELIST block is terminated with the characters 

The processor begins a new record for aach block transferred* 
Column one of the first record of each block contains a carriage 
control character follov^ed by an € followed by the group name. 

The processor begins a neH record for the block tern^inator £END. 
Column one of the block terminator record contains a carriage 
control follov^ed immediately by GEND. 

Th'i processor may bag in new records as n€5cassary> but> except for 
complex constants and character constants^ the end of a record must 
not occur within a constant* A new record is begun with the 
carrii?ige control chiractor blank In column one> and the leftmost 
character of the constant In column two* 

Logical constants are produced as T for the value true and F for the 
value false. 

Character constants are produced with deliniiting apostrophes. 

Boolean constants are produced in the form Z"2C2l..."^ where z is a 

hexadao I fTial digit. Leading zeros are suppressed. 

Integer constants are produced with the effect of an I^i edit 
descriptor^ for some reasonable value of jj. The value chosen for h 
must be larje enough to hold all of the significant digits of the 
intager as nell as tha sign i^ it Is negative. 

Except for the value zero* real;. double precision* and half 
precision constants are produced with the effect of an E edit 
descriptor Hith scale factor of zc>ro. Ho digits ara produced before 
tha declfial point. Tha nunb^sr of digits produced to the right of 
the decimal point is the minimum number necessary to accomodate 
representation of the internal datum. Trailing zeros are 
(ilirninatsl. Tha strlno 0.0 Is produced for the value zero. 

Con pi ex constants are produced as a pair of real constants enclosed 

in parentheses and with a comma separating the real and imaginary 

parts. Each real constant is produc^^d as dascribed In the preceding 
paragraph. 

Bit constants are produced with the effect of a Bw edit descriptor. 
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15.0 MAIN PROGRAM 



A laain E£Q£lLani «s a program unit that does not have a FUNCTION^ 
SUBROUTINE^ or BLflCK DATA staten^snt as Its first statament. It may 
have a PROGRAM statement as Its f irs t st atement . 

There must bo exactly one main program In an axecutabJe program* 
Hxecution of an axacutable program begins with the execution of the 
first executable statement of the main program. 

15.1 £E05RAa^SIAI£U£HI 

The form of a PROGRAM statement isJ 

PROGRAM naiD 

Hhers £>£!in is the symbolic nama of the main prosram in which the 
PROGRAM statement appears. 

A PROGRAM statement is not required to appear In an executsble 
program* If it does appearjt it must be the first statement of the 
main program. If omitted^ the symbolic name qciq of the main program 

is the six character name STARTS. 

The symbolic name b^B is global (lQ.1.1) to the executable program 
and must not be the same as thci name of an external procedure, block 
data subprojran-j or coinmon block In the same executable progrgni. 
The name ana must not be the same as any local name in the main 
progr am. 

15.2 OAIH-ESnGEA^-E£aiEI£IintlS 

The PROGRAM statement may appaar only zs the first stiitement of a 
msin program. A rriin program may contain any other statement except 
a BLOCK DATA^ FUMCTION^ SUBROUTINE^ or ENTRY statement. The 
appearance of a SAVE statement in a main program has no effect. 

A main projram may not be referenced from a subprogram or from 
itself. 
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16.0 FUMCTIOMS AND SUBROUTINES 

16.1 i:AlE£2aRI£S_Q£_£UNriIIQNS_AiiQ_Sy£RQllIIN£S 

16.1.1 PEQQ.EDUai:S • 

Functions and subroutines are a£a£§dj2c_os,. There are four categories 
of procedures J 

(1) Intrinsic functions 

(2) Statement functions 

(3) External functions 

('O Subroutines 

Intrinsic functions/ statement functions.^ and oKternal functions are 
referred to collectively as lUBGJiiliD^' 

External functions and subroutines are referred to coMttctively as 
iJXililJlQili ELi2i2^£ill£2S« 

16.1.2 iXIEaiiAL-EyiiCIIQiiS. 

There are tno catagorles of £iSt£LQ2il £iiOii±iliDss 

(1) External functions specified in function subprograms 

(2) Ext^^rnal functions specified by means other thsn FORTRAN 
subprograms 

16.1.3 suaiiauiiiiiis. 

Thirs are tno catejorles of s.ui2L£iUtiQ££* 

(1) Subroutines specified In subroutine subprograms 

(2) Subroutines specified by means other than FORTRAN subprograms 

16.1.4 CiUaMY^£llO£HQyEII. 

A dijiao^ BLf2££.iiiJ£ii Is a dununy argument that is identified as a 
procedure (19.2.11) . 

16.2 E£££EELi£Ili£-A-.£yLlCIiaM 

A function is referenced In an expression and supplies a value to 
the expression. The value suppMcsd is the vplue of the function. 
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An intrinsio function may be referenced in ths main program or in 
any procedure subprogram of an executabi a program* 

A statement function may be referenced only in the program unit In 
vjhich tha statement function statement app*2arst 

An axtfjrn'jl function specified by a function subprogram may be 
referenced viithin any other procedure subprogram or the main program 
of the executable prograsn* A subprogram must not reference itself^ 
either directly or Indiractly. 

An external function specified by means other than a subprogram may 
be referenced within any procedure subprogram or the main program of 

the executable program. 

If a character function Is referenced in a program unit/ the 
function length specified in the program unit must be an extended 

integer constant expression. 

16.2.1 FaRii„a£^A-.£lliJaiIIlli»RE££E£il££. 

A function reference Is used to reference en Intrinsic function^ 

statx2nient function* or external function. 

The form of a function reference is: 

f ilQ ( i£i l^^l . • .1 ) 

Hhere: fyn is the symbolic name of a function or a dummy procedure 

a i s an actual argument 

The type of the result of a statement function or external function 
reference is the same as thr- type of th^ function name. The type is 
specified In the same manner as for variables and arrays (4*1*2). 
The type of the result of an intrinsic function is specified in 
Table 5 (16.10). 

16.2.2' E^£!:UIIQLl-.Q£-.A.£yii[IIIDLl-E£££££ti£E . 

A function reference may appear only as a primary in an arithmetic^ 
lojical/ or character expression. EKacution of a function reference 
In an expression causes the evaluation of the function identified by 

Return of control from a referenced function compi stes axecut I on of 
th3 function reference. The value of the function is available to 
the referencing expression. 
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16,3 iLiiRitisi£„Eybiaiiati5 

Intrinsic functions are supplied by the processor and have a special 
nieining* The specific names that identify the intrinsic functions^ 
their generic namas^ f unct i on daf I ni ti ons,« type of arguments^ and 
type of results appear In Table 5. 

An IMPLICIT statement does not change the type of an intrinsic 
function. 

An intrinsic function Is ^iSEi^atsi If tha result can be determined 
on an element by element basis when applied to an array valued 
ara'Jin^'int . An intrinsic function is scLa^iriiiliHSd If It appears in 
the array-valued section of Table 5, An array-valued function is 
generally one which cannot be evaluated independently for each array 
al^jiiisnt, Th2 value of an arrsy-valued function need not have the 
S8nie shape as sny of Its arguments. 

None of the ar r ay~val ued Intrinsic functions may be passed as an 
argument to an axt^rnai procedure. 

16,3.1 S£Eai£I£l-.biA[lES-.ANn_££H£RIC^NA[iEl 

Generic names simplify the referencing of intrinsic functions^ 
becaus*? the sam6 function naire may be used with more than one type 
of argument. Only a specific Intrinsic function name may be used as 
an actual argument vihen the argument is an intrinsic function* 




For those intrinsic functions that have more than one arguments all 
arguments must be of the same type with ths exception that a Boolean 
argum?;int Is allo/jed In the same Intrinsic function reference as an 
arithmetic argument. In this case each Boolean argument Is 
converted to the type of the arithmetic argument or arguments. If 
all the arguments are of type Boolef?n^ each of them Is converted to 
type integer. 

If the speclflcnameor generic name ofanintrinsic function 
appears In the dummy argument list of n function or subroutine In a 
subprojrs;!^ that symbolic nane does not Identify an Intrinsic 
function in the program unit. The data type identified with the 
symbolic name is specified in the same manner as for variables and 
irr ays ( 4.1. 2) . 
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A name in an IHTRIMSIC statement must bo the specific nanie or 
a^nsric nans of an intrinsic function* 

16.3.2 B£££aE^la^J£-.M>IMIEmSIC^£U^ll:II^N. 

An intrinsiQ function is refarenced by usino Its reference as a 
prhnary in an expression. For each intrinsic function described In 
Table 5# execution of an Intrinsic function reference causes the 
actions specified in Table 5> and the result depends on the values 
of the actual arjuments» The resulting value Is available to the 
expression that contains the function reference* 

The actual arguments that constitute the argument list must agree In 
order and number ijlth tlie spec If I cat I on In Table 5. They must also 
agree In type except that an actual argument of type Boolean may 
appear whenever Table 5 permits an argument of arithmetic type. An 
actual arouiiant may bo «ny exprassion of an allowed type* An actual 
aruument in an Intrinsic function reference may be any expression 
except a character expression Involving concatenation of an operand 
vihoss lenoth specification Is an asterisk In parentheses unless the 
operand Is the symbolic name of ?t constant. 

A specific name of an intrinsic function that appears in an 
INTRINSIC statement may be used as an actual argument in an external 
procsdure raferancej howeverj the nanes of Intrinsic functions for 
type conversion^ lexical rel at i onsh I p j and for choosing the largest 
or smallest value must not be used as actual arguments. Note that 
such an appearance does not cause the intrinsic function to be 
class If I 2d IS an external function (19. 2. 10) « 

16.3.3 ItiIEIiiSI£^£UUc:iID!J-AE£yii£MIS_Af:lI)_££SyLI2 

If a jenerlc nf)me or a specific name Is used to raferance an 
elemental intrinsic function^ the shape of the result is the same as 
the shape of the argument with the greatest number of dimensions. 
If the arju,:i3nts are all scalar^ the result Is scalar. If a generic 
name or a specific name is used to reference an array-valued 
intrinsic function,* the shape of the result is specified by Table 5. 

For thoS'i? BJemental Intrln.slc functions that have more than one 
:irjument> all arguments must be conformable. 

The actual arguments that constitute the argument list must agree In 
orders numb*?.r^ and type iJith tha specification In Table 5. For 
elamantal Intrinsic functions^ the actual arguments may be any 
expression including an array expression. For array-valued 
intrinsic function:;^ a scalar actual argument may not be used nhere 
Tjjbl'? 5 Indicates an array Is expected. 
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16.3.4 INIEIiJiI£_£yil£IIDLl_££SISI£IinMs. 

Arjyments for Khich the result Is not ir>athemet 1 ca Uy defined or 
exceeds the numeric range of the processor cause the result of the 
function to become undefined. 

Rftstrictions on the ranga of arguments and results for Intrinsic 
functions ^r e described In 16.10.1* 

16.3.5 AERAI-SEaUCIIQl^-iaiSIMSia-EyiiQIIOIiii 

16.3.5.1 ALLS:^«S£dllIlti£iD_ti2-S_S.caiar 

An array reduction function can be usad to reduce an array to a 
scalar value of the same type or to reduce an array along a specific 
dimension. 

Baa£i(A^ CDlM=]iJ) 

a21!ie(i^^rDIM = ]rl>i:MASl< = ]lD) 
Oa!i]^(Aj'HASK=|il) 

vihere: 

i lo an arrays array section^ or array expression with n 
dimensions such that 1 ^ d :^ II 

i3 is a scalar Integer value specifying the dimension along 
vihich the function is applied (1 ^ il ^ jd) 

E is a type logical array.* array section^ array expression^ 
or scalar conformable to a 

Th2 function applies to all elements of the arrays array sections or 
array expression A» An example vjould be SUM(C) which would return 
tha arithmscic sum of all the 'c^lemants of the arrfiv C. 

16.3.5.2 ALL^^-R^iJU£;tiaD.AlQB£l-a_Dim2QSli2fl 

If the s h ap of array A is ( il ^ d 2^ . . . ^ d ( l~l ) ^ d I ^ d ( i + 1 ) > . • . ^ d n ) and 
an array reduction function is applied along dimension 1^ the 
resultant array has shape 

{dl^d2^,.,M)( i~l)^d( 1+1)^, .•.•dn) 

The va I ue of el emen t (sl^s2^ • . .^s { i-1) ^s { l+l)^ . • . ♦ sn ) of the result 
arr ay i s ji ven by 

Q3in£i(A(3lj»s2^ . . .^ 3( \-l)f^f s( 1+1) J . . .^sn) C^MASK = !23) 

If ij is omittedj. the entire array is reduced to a scalar. 
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16»3«5«2 Array RediJction Along a Dimension 



A masked reduction applies to all of the elements of^ (selected by 
d) i'Jhsre corresponding vaUias of elements in b are true, A and m 
must be conf orinab I e» For example^ SUM (C^ f1ASK=C .GT« 0,0) would form 
the arithmetic sum of all elements of C ^hose values are greater 
than zero. Each masked reduction function has a default value that 
Is returned if all of the elements of q are false* 

If a is omitted.» the array is reduced as if m vjtis an array 
conformable vjith A and all of Its elements were true,. 

16,4 SIAIEilElil-Eytiaiaii 

A statement function is a procedure specified by a single statement 
that is similar in form to an arithmetic^ Boolean^ b 1 1^ logical^ or 
character assignment statement, A statement function statement must 
appear only after the specification statements and before the first 
executable statement of the program unit in which it is referenced 
(3,5), 

A statement function statement is classified as a nonexecutable 
statement* it is not a part of the normal execution sequence, 

16.4.1 £QEtl^Q£-^>SlAimiitlI-EytiaiIQti-.£IAIi:a£tiI. 
The form of a statement function statement is J 

fun C Cd C^£l3..,] ) = e 
Hhere: fun is the symbolic name of the statement function 

d \s a statemsjnt function dummy arfjument 

e i s an expression 

The relationship between tun ^nd s liiust conform to the assignment 
rules in 10, 1/ 10, 2> and 10,4* Note that the type of the expression 
may be different from the type of the statement function name. 

Each d is a variable name called a siiltefliexit luQciiiiQ iJiJEiDv 
iH-lLiai^nt* Thu statement function dummy ar£3ument list serves only to 
Indicate orders number^" and type of arguments for the statement 
function. The variable names that appear as dummy arguments of a 
stiitemant function hftve a scope of that statement (19,1), A given 
syiibollc name may appear only once in any statement function dummy 
argument list. The symbolic name of a statement function dummy 
arjument may he u^^ed to identify other dummy arguments of the same 
type in different statement function stataments. The name may also 
be used to Identify a variable of the same type appearing elsewhere 
in the program un 1 1^ including its Appearance as a dummy argument In 
a FUMCTIQhb SUBRQUTIME/ or ENTRY statervant. The name must not be 
used to Identify any other entity in the program unit except a 
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co^imon b 1 ock. 

Each primary of the expression 5 must be one of the following: 

(1) A constant 

(2) The symbolic name of a constant 

(3) A variable reference 

(A) An array element reference 

(5) An Intrinsic function reference 

(6) A rafi^renca to a statement function for nhlch tha statement 
function statement appears In the saine progratr unit 

(7) An external function reference 

(8) A dummy proc€^dur9 referonce 

(9) An express ion enclosed In parentheses that meets all of the 
requirements specified for the expression £ 

(10) A substring reference 

Each variable reference may be either a reference to a dummy 
ar^jument of the statcmQnt function or a r^jfer^^nce to a variable that 
appears within the same program unit as the statement function 
statement. A substring reference may not have the form y{C£l]:C£2]) 
v/here i is a stateinen t function dummy argument. 

If ^ statemsnt function dumrny argument name is the same as the name 
of another entity^ the appearance of that name in the expression of 
i statement function statement is a reference to the statement 
function du.*?Kiy arjument. A du>nmy argument that appeers In a 
FUNCTION or SUBROUTINE statement may be referenced In the expression 
of a statement function statement within the subprogram. A dummy 
ar jument that appears In an ENTRY statement thst precedes a 
statement function statement may be referenced In the expression of 
the statement function statement within the subprogram. 

16.4.2 R£E£RI:llCIti£-.A-SIAI£B£HI-£ytiCIiaii. 

A statement function Is referenced by using its function reference 
as a primary in sn Expression. 

Execution of a statsment function reference results In* 

(1) evaluation of actual arguments that are expressions^ 
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(2) conversion^ if necessary of the values of the actual 
argyments to the types of the corresponding dummy arguments 
according to the rules for assignment ^ association of 
resulting values with the corresponding dummy arguments^ 

(3) evaluation of the expression ^9 and 

(4) conversion^ if necessary^ of an arithmetic expression value 
to the type of the statement function according to the 
assignment rules in 10.1 or a change^ If necessary* in the 
length of a character expression value according to the rules 
in 10.4. 

Tha resulting value is available to tha a:<pres3lon that contains the 
function reference- 

The actual arguments* vihich constitute the argument list* must agree 
in order and number Hith the corresponding dummy arguments. An 
actual aruunant in a statement function reference may be any 
expression except a character expression involving concatenation of 
an operand whose length specification is an asterisk in parentheses 
unless the o?*:2rand is tha symbolic name of a constant. 

VJhen a staterient function reference is executed* Its actual 
arguments must be defined. 

16.4.3 SIAIilH]-HI«£iJUCIIQti-EE5l[li£IIQl^S. 

A statement function may be referenced only in the program unit that 
contains tha statement function statement. 

The evaluation of the expression £ (16.4.1) must not cause the 
execution of a reference to fuQ (16.4.1). The symbolic name used to 
Identify a statemant function must not appear as a syinboilc name In 
any specification statement except in a type-statement (to specify 
the type of the function) or as the name of a common block in the 
s mne prograni unit. 

An external function reference in the expression of a statement 
function statement must not cause a dummy argument of the statement 
function to become undefined or redefined. 

The syrnbollc name of a statement function is a local name (19.1.2) 
and must not be the same as the name of any other entity in the 
progr'im unit axcept the name of a common block. 

The symbolic name of a staternant function niay not be an actual 
argument. It must not appear in an EXTERNAL statement. 

A statement function statoment in a function subprogram must not 
contain a function reference to the name of the function subprogram 
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or an entry name In the function subprogram. 



The length specification of a character statement function or 
statement function dummy aroument of type character must be an 
extended Intejer constant expression. 

16.5 £XI£EtiAL^£UMCIID.LlS 

An axtornal function is specified externally to the program unit 
that references It. An external function is a procedure and may be 
specified in a function subprogram or fay some other means. 

1 6 • 5 • 1 £ULiaiIfltl^Sya£EQ£SACl-AtiQ-£ytJCIIQll-2IAI£tl£tiI 

A function subprogram specifies one or more external functions 
(l&.T). A function subprogram Is a program unit that has a FUNCTION 
statement as its first statement. The form of a function subprogram 
is as described In 2.4 and 3.5> except as noted in 16.5.3 and 
16.7.4. 

The form of a FUNCTION statement Isi 

ILlRl FUNCTION fun ( Cd ljdl>**l ) 

Hherai tlQ. is one of INTEGER/ REAL^ DOUBLE PRECISION^ HALF 
PRECISION^ COMPLEX^ LOGICAL^ BIT^ BOOLEAN^ or CHARACTER 
E^-i'lSDl where ieQ is the length specification of the 
result of the character function* isB may have any of 
tire forms allowed in a CHARACTilR statement (C.4.2). If a 
l,ingth Is not specified in a CHARACTER FUNCTION 
statements the character function h?s a length of one» 

liiQ is the symbolic name of the function subprogram In which 
the FUNCTION statement appears. tiin is an siitSLDai 
fiinstioQ n^ms- 

ij is a variable names array names or dummy procedure name, 
rl i s a dummy argument. 

Tha symbolic nama of a scalar-valued function subprogram or an 
associated entry naine of the same type must appear as a variable In 
the function subprogram. During every execution of the external 
functions this variables unless It has length zeros must become 
defined ands once deflneds may be referenced or becorre redefined^ 
During every execution of a user array-valued functions the array 
corresponding to fuQs unless it has size zeros must become defined 
ands once deflneds may be referenced or become redefined. The value 
of this variable or array when a RETURN or END statement is executed 
in the subprogram is the value of the function. If this variable is 
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16,0 FUNCTIOMS AND SUBRQUTIMES 

16.5.1 FUiiCTIQM SUBPROGRAM AMD FUNCTION STATEMF.NT 

a character variable v-ji th a length specification that is an asterisk 
In parentheses^ it must not appear as an operand for concatenation 
except In a character ass I gnment statement (10.4). 

An external function in a function subprogram may define one or more 
of Its dummy arguments to return values In addition to the value of 
the f unct I on. 

16.5.2 a£££E£liQIU5-.M-EXI££ML-£UtlCIIDli. 

An cixtarnal function is referenced by using Its reference as a 
priiiiary In an expression. 

16.5.2.1 £2is£yiiaD-i2£-.iiQ-E^i;s£Qai-.Euaciij2D-.E£f£££Dii£A 
Execution of an external function reference results in: 

(1) evaluation of actual arguments that are express i onsj» 

(2) association of actus I ar5u«nents vilth the corresponding dumsny 
argumentsj> and 

(3) the actions specified by the referenced function. 

The type of the function name in the function reference must be the 
same as the type of the function name In the referenced function* 
The length of the character function in a character function 
reference must be the same as the length of the character function 
In the referenced function. 

VJhen an external function reference is executed^ the function must 
be one of thy external functions In the executable program. 

16.5.2.2 Aniiliil^At JU!Q£Qi£_f 2Jl-aQ-£xt£Lnai-£un<2t;ii3Di 

The actual arguments in an external function reference must agree In 
order and number with the corresponding dummy arguments In the 
referenced function. They must also agree in type except that an 
actual argument of type Boolean may have a corresponding dummy 
arjumcjnt of type integer or real/ and an actual r-rgument of type 
Integer or r e .i I may have a corresponding dunmy argument of type 
Boolean. The use of a subroutine name as an actual argument is an 
exception to the rule requiring agreement of type because subroutine 
names do not .have a type. 

An actual argument In an external function reference must be one of 
the foil ohI ng : 

(1) An expression except a character expression Involving 
concatenation of an operand whose length specification is an 
asterisk in parentheses unless the operand is the symbolic 
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16.0 FUNCTIOMS AMD SUBRnuTINES 

16,5»2»2 Actual Arguments for an External Function. 

name of a constant 
(2) An array name 
(3). An intrinsic function name 

(4) An external procedure name 

(5) A dummy procedure name 

(6) An array expression 

(7) An array section name 

Mote that an actual argument in a function reference may be a durrimy 
argument that appears in a dummy arsument list within the subprogram 
containing tlie reference. 

16,5.3 £Utiaiiatl^syaEEO£EAlJ-.B£SIEKIiatiS 

A FUNCTIOM statement must appear only as the first statement of a 
function subprosr am. A function subprogram may contain eny other 
statejnent except a BLOCK DATA^ SUBRDUTINEji or PROGRAM statement. 

The symbolic name of an external function is a global name (19.1.1) 

and must not bs the same as any other globs J name^ except a common 

block name* or any local namej except a variable name^ in the 
function subprogram. 

Vn th i n a function subprograms the symbolic name of a scslar-yalued 
function specified by a FUMCTIOM or EMTRY statement must not appear 
In any other nonexecutable statement^ except a type-statement. In 
an executable statement^ such a name may appear only as a variable. * 
Tha symbolic name of a user ar ray-va I ut;d function may appear I n an 1 
array declarator In any nonexecutable statement that permits an 
array declarator. The name may appear in a type statement as: 

(1) An array declarator provided it is the only appearance as an 
array declarator In this program units or 

(2) An array name where the array dimensions are specified in 
anoth<^r statement. 

If the type of a function is specified in a FUNCTION statements the \ 
function name must not appear In a type-statement. Note that a name I 
n!U£;t not have Its type explicitly specified more than once In a 
projjram unit. 

If the name of a function subprogram is of type character^ each 
entry name in the function subprogram must be of type character. If 
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16,0 FUNCTIQf^lS AND SUBROUTIMES 

16.5.3 FUNCTION SUBPROGRAM RESTRICTIONS 

the name of the function subprogram or any entry in the subprogram 
hris a lenjth of {^') declared^ all such entities naist have a length 
of C^-) declared; otherwise^ all such entitles must have a length 
specification of the same integer value. 

In a function subprograms the symbolic name of a dummy argument is 
local to the prograi-i unit end must not appear In an EQUIVALENCE^ 
PARAMETER/ SAVE* INTRINSIC* DATA* or COMMON statement* except as a 
common block name. 

A character dummy argunisnt *<hose length spec i f i cat i on i s an asterisk 
in parentheses must not appear as an operand for concatenation* 
except in a character assignment statement Clo.4). 

A function specified In a subprogram may be raf-irenced iilthin any 
other procadurc subprogram or the main program of the executable 
program. A function subprogram must not reference itself* either 
directly or i ndi r ect I y. 

16.5.4 ysEE-ARSAYzY^LUED-EUNniiaM-DECLMAIIQil 

An external array-valued function is an external function that 
returns an array-valued result. An external array-valued function 
Is distinguished from a scalar function by an array declaration for 
the function name. 

16.5.4.1 Sha2i3-iit-£-.llaai:-A££av=iiaiiJii£i^£uflfjtioQ_E£i5Ult 

The shape of a user array-valued function result is declared in the 
function subprogram by an array declaration for the function name. 
The actual sliape returned by a reference to the function is 
determined by evaluation of each of the dimension bound expressions 
\t the time of the reference to the function* Values involved in 
the determination of the shape raay become redefined during the 
execution of the function but this will not affect the shape. 

The shape and type of a user array-valued function must be declared 
in a procedure information block In the program unit referencing the 
function and the shape and type must agree with the shape and type 
specified in the function. 

16.!3.4.2 Uaii£-ALLili:-Vaiiiiid_Eun£tll2Q_tiaa!i_.iJ5£i3£ 

The symbolic name of an array-valued function must be declared as an 
array name In the function subprooran. During every execution of 
the array-valued function* this array must become defined (but note 
that an array of size zero is al ways def i ned ) and once defined* may 
be refer ancad or become redefined. The value of this array nhen a 
RETURl^ or E'iD statsment Is executed in the subprogram Is the value 
of the function. 
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16.0 FUNCTI0M5 AND SUBROUTINES 

16»5.A-,3 User Array-Valued Function Restrictions 

16.5.4.3 Ll£^L_A££Bi=i£aiii£ii-£iin£iiGn-Easi;£l£iiiiQs 

A user tirr ay~va I y^d function name m^Y not be pa^ssed as an actual J 
argument. A user array-valued function must not contain an ENTRY \ 
statement. 

16.6^L}aEDUIILiiiS 

A subroutine is specified externally to the program unit that 
references it. A subroutine is a procedure and may be specified in 
a jubroutlna subproorao or by some other means. 

16.6.1 SUaEniJIILl£-ma£Sni2£i\I:S_.AliII^SUaSQUII]JI;-SIAI£t]£MI« 

A subroutine subprograFi specifies one or n^ore subroutines (16*7)* A 
subroutine subprogram is a program unit that has a SUBROUTINH 
statement as its first statement. The form of a subroutine 
subproQram is ?is d^:)sc^lbed in 2.4 and 3.5^ except as noted in 16*6«3 
and 16.7.4. 

The form of a SUBRGUTIME statement is: 

SUBRQUTINS ^uh H id C^dl...l )1 

Hhere: syb is the symbolic name of the subroutine subprogram in 
Hhlch the SUBROUTINE statement appears. siiii ts a 
£ilb£>3iiiii3e name* 

^ is a vcjfiable name* array name,* or du-nmy procedure namej 
or is an asterisk (16.9.3.5). d is a dummy argument. 

Mot'3 that if there are no dummy arguments^ either of the forms zub. 
or s.ul2() f;iay be used In the SUBROUTIME statement* A subroutine that 
is specified by either form may be referenced by a CALL statement of 
the form CALL 2.llh or CALL sUlsO • 

One or more dummy arguments of a subroutine in a subprogram may 
become defined or r^jdefined to return results* 

16.6.2 auaEOUIIU£-RE££E£LlC£* 

A subroutine is referenced by n CALL stafsnient* 
16.6.2.1 EQ£a-fii!-.B«IIALL-.Statj^ii!fiQii 
The form of a CALL statement \si 

CALL syb C( C^ C>£i3...3 )1 
Hhere: syti is the symbolic name of a subroutine or dummy procedure 
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16.0 FUNCTIONS AND SUBROUTINES 
16«6»2.1 Form of a CALL Statement. 

2 is an actual argument 1 

16. 6. 2.2 Exi2iiutina-.i2f_a-£ALL-Slaiea£Qti 
Ex*3Cution of a CALL statement results in 

(1) evaluation of actual arguments that are expressions^ 

(2) association of actual arguments with the corresponding dummy 
arouments:* and 

(3) the actions specified by the referenced subroutine. 

Return of control from the referenced subroutine completas execution 
of the CALL statement. 

A subroutiine specified in a subprogram may be referenced within any 
other procedure subprogram or the main program of the executable 
program. A subprogram must not reference itself> either directly or 
indirectly. 

When a CALL statement is executed^ the referenced subroutine must be 
on-j of tha subroutines specified In stibroutln?? subprogrems or by 
other means in the executable program. 

16.6.2.3 A£tJJai-A£aiini£QiS-l£2£-£i_2ill2£llUiiDeA 

The actual arguments In o subroutine reference must agree In order 
and number vm th the corresponding dummy arguments in the dummy 
arjument list of thti raferencad subroutine. They must also egrae In 
type e^<cept that an actual argument of type Boolean may have a 
corresponding dummy argument of type integer or real> and an actual 
argument of type integer or real may have a corresponding dummy 
argument of type Bool»:jen. The use of a subroutine name or an 
alternate return specifier as an actual argument is an exception to 
the rule requiring agreement of type. 

An actual argument in a subroutine reference must be one of the 
^" I I w i n g : 

(1) An expression except a character expression involving 
concatenation of an operand vjhose length spec i f i cet I on is an 
asterisk in parentheses unless the operand is the symbolic 
name of a constant 

{ 2 ) An ar r ay name 

(3) An Intrinsic function na'ne 

(A) An external procedure name 
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16,0 FUNCTIONS AND SUBROUTINES 

16.6t2«3 Actual Arguments for a Subroutine. 

(5) A dummy procedure name 

(6) An ai±S£Qat§ nSilULQ £E2£iiisi:^ of the form *s^ Hhere^ is the 
statement label of an executable statement that appears in 
the same program unit as the CALL statement {16«8«3) 

(?) An array expression 
(8) An array section name 

Mote that an actual argument in a subroutine refsr^nce may be a 
dummy argument name that appears in a dummy argument list within the 
subprogram containing the reference. An asterisk dummy argument 
must not be used as an actual argument in a subprogram reference* 

16. 6. 3 SUaE[liJIl!iE^iyBERQGEA!:!«R.ESIEICIIQll^. 

A 5U3R0UTIME statement must appear only as the first statement of a 
subroutin?! subprogram. A subroutine subproorani may contain any 
other stateiiant except a BLOCK DATA^ FUMCTIONj or PROGRAM statement. 

The symbolic name of a subroutine is a global name (19.1.1) and must 
not be tho same -as any othar global nnma* except a common block 
narne^ or any local name In the program unit. 

In a subroutine subprograms the symbolic name of a dummy argument is 
local to the progran unit and must not appear In en EQUIVALENCE^ 
PARAMETER/ SAVE/ IMTRIHSIC/ DATA/ or CannON statement/ except as a 
common block name. 

A character dummy argument whose length specification is an asterisk 
in parenthGS'2s must not appear as an operand for concatenation/ 
except in a character assignment statement (10.4). 

16.7 £MIEX_SIAl£D£iJI 

An ENTRY statement permits a procedure reference to begin with a 
particular executable statement within the function or subroutine 
subprogram in nhich the ENTRY statement appears. It may appear 
anyvjh'ijre within a function subprogram after the FUNCTION statement 
or within a subroutine subprogram after the SUBROUTINE statement/ 
except that an ENTRY statement must not appear between o block IF 
st<it?.munt and its corresponding END IF statement/ between a block 
V/IIERE and Its corresponding END WHERE/ or between a DO statement and 
the terminal statement of its DO-loop. 

Optionally/ -i subprogram may have one or more ENTRY statements. 

An ENTRY statement is classified as a nonexecutable statement. 
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16,0 FUNCTIONS AND SUBROUTINES 
16,7,1 FORH HF AN EMTRY STATEHEMT. 

16.7.1 FQEtl-QI-AN.EHISI-^I^IOEMI. 
The form of an ENTRY statement is: 

2MTRY pQ rC Cd i^ni.. • 3 )1 

v-jhere: eQ is the symbolic name of an entry in a function or 
subroutine subprogram and is called an satLJ^ iiaei£» If 
the ENTRY statement appears in a subroutine subprogram^ 
-ia is a ayl2££iytiE£ Q22£« If the ENTRY statement appeers 
in a function subprogram/ £n JS an £iil££Dal XiiBiiijQD 

d is a variable name^ array name^ or dummy procedure name/ 
or is an asterisk, d is a dummy argument. An asterisk 
is permitted in an ENTRY statement only in a subroutine 
subprogram. 

Note that i f there ore no dummy ergum^nts/ either of the forms ^n or 
eQ() may be used in the ENTRY statement. A function that Is 
spaoifiod by ^iither form must bs referencad by the form sdO 
(16,2.1)» A subroutine that is specified by either form may be 
referenced by a CALL statement of the form CALL gq or CALL £a(). 

Th'2 entry nane £Q In a function subprogram may gppear In a 

type-statement. 

16.7.2 SI;E£EEIl{:iliS-A5i«En&Stl^UEBQi:£DUllE-BI-Ati-£EIEI-M!l£ 

An entry name in an ENTRY statement in a function subprogram 
identifies an external function vntbin the executable program and 
'nay be referenced as an external function (16.5.2). An entry name 
in an ENTRY statement in a subroutine subprogram identifies a 
subroutine within th?=5 executable program and may ba referenced as a 
subroutine (16.6.2). 

V/hen an entry name sD is used to reference a procedure^* execution of 
tha procQdure bejins tilth the first executable statement that 
fclloifs the EMTRY stat^^mant whose entry name Is s,u* 

An entry name is available for reference in any program unit of an 
^jx-iQutab I a program^ ivxcept In the program unit that contains the 
entry name in an EMTRY statement. 

The orders number^ type^ and names of the dummy arguments in an 
ENTRY stitemont nuiy ha different from the ordcr^ number^ type> and 
names of the duiTiir,y arjuments in the FUNCTION statement or SUBROUTINE 
statement and other ENTRY statements in the same subprogram. 
Movjever^ each reference to a function or subroutine must use an 
actual anjuni^Mit list that fHjm^iS In orders number^ and type with the 
dummy argument list in the corresponding FUNCTION^ SUBROUTINE^ or 
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16.0 FUMCTiailS AND SUBROUTINES 

16.7,2 REFERtlHCING AM EXTERNAL PROCEDURE BY AN ENTRY NAME 

i:NTRY ststQj'Jsnt, The use of a subroutine name or an alternate 
return specifier as an actual argument is an exception to the rule 
requiring agreement of type. 

16.7*3 £blI£I^A55QCIAIIQii. 

Within a function subprogram.* all variables whose names are also the 
names of :!ntries arc associated nith ef^ch other and with the 
variable^ if any^ ^"ihose nzme Is also the name of the function 
subprogram (18.1.3), Therefore^ any such variable that becomes 
defined causes all associated variables of the same type to bacome 
defined an! all associsted variables of different type to bscome 
undefined. Such variables are not required to be of the same type 
unless the type is characters but the variable whose name is used to 
reference th^i function must ha in a defined state nhen « RETURN or 
END statenent Is executed in the subprogranu An associated variable 
of a different type must not become defined during the execution of 
the function reference. 

1 6 . 7 . 4 ii?iIEI^SIAI£OE!llI-.E£SIEiaiQblS . 

V/ithin a subprogram^ an entry name must not appear both as an entry 
name In an EMTRY st^tenient and as a dummy ar^um^snt in a FUNCTION^ 
SUBROUTINI:"^ or ENTRY statement and must not appear in an EXTERNAL 
statement. 

In a function subprogram^ a variable noma that is the some as an 
^jntry name must not appesr In any statement that precedes the 
appearance of the entry name in an ENTRY statementi» except In a 
type-statement. 

If an entry name In a function subprogram is of type character^ each 
ijntry name and the name of the function subprogram must be of type 
character. If the name of the function subprogram or any entry in 
th ) subprogram!! has a length of {*) declared^ all such entities must 
have a isrigth of i^^) declarsdj other wlse> all such entitles must 
have a length specification of the same integer value. 

In a subprograms a name that appears as a dummy argument in an ENTRY 
statement mu5jt not appear In an executable statement preceding that 
ENTRY statement unless It also appears In a FUNCTION^ SUBROUTINE^ or 
ENTRY statement that precedes the executable statement. 

In a subprograms a name thst appears as a dummy argument in an ENTRY 
statansnt must not appear in the expression of a statement function 
statement unless the name is also a dummy argument of the statement 
functions appears In a FUNCTION or SUBROUTINE statements or appears 
in an ENTRY statenent that precedes the statement function 
statement. 

If a dummy argument appears in an executable statements tho 
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16,0 FUNCTIONS AND SUBRHUTIHES 
16.7,4 SHTRY STAT!:HENT RESTRICTIONS, 

execution of the executable stateirient Is permitted during the 
exooution of a rsfsronce to the function or subroutine only if the 
dummy argufnent appears in the dummy argument list of the procedure 
name referenced. Mote that the association of dummy arguments with 
actual argufiients is not retsined bet^^ecjn references to a function or 
subroutlnst 

An EliTRY statement must not appear in an array-valued function 
subpr o£jr am t 

16.8 R£iyE^-.SIAI£inEMl 

A RETURN statement in a function subprogram or suhroutlns subprogram 
causes return of control to the refsrancing program unit. Execution 
of a RETURN statement In a main program terminates the execution of 
the executable program, 

16,8.1 £QEii_Q£_A-S£IUSli.SIM£!lEliI. 

The form of a RETURN statement in a function subprogram or a main 
progr am i s ! 

RETURN 

The form of a RETURN statement in a subroutine subprogram is: 

RETURN lfi.1 

where £ Is a scalar arithmetic or Boolean expression. If £ is not 

of type intevjer^ the yohje of INTffi) is used, 

16.B.2 £X£CniiQLi.aE-.A-R£lU£i:l-.SIAI£Ii£l:lI. 

Execution of 3 RETURN statement terminates the reference of a 
function or subrouti ne subprogram • Such subprograms may contain 
mora than one RETURN statement; hovjevori a suhprooram need not 
contain a Rl£TURN statement. Execution of an END statement In a 
function or subroutine subprogram has the same effect as executing a 
RETURN statement in the subprogram. 

In the execution of an executable prorjram^ a function or subroutine 
subprogram must not be referenced a second time without the prior 
execution of a RETURN or END statement in that procedure. 

Exficution of a RETURN statement in a function subprogram causes 
return of control to the cur r ent 1 y re f erenci ng program unit. The 
value of the function (16,5) must be defined and is available to the 
referencing prcjram unit. 

Execution of a RETURN statement in a subroutine subprogram causes 
return of control to tlie currently referencing program unit. Return 
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16,0 FUNCTIQMS AND SUBROUTINES 

16.8.2 cXECUTIOM OF A RSTURM STATEiiEMT. 

of control to the referencing program unit completes execution of 
the CALL statement. 

Exacytion of a RETURN statement terminates the association betvreen 
the dummy arguments of the external procedure in the subprogram and 
the current actual arguments. 

16.6.3 ALI£EHAI£^gi:iysy. 

If 2. is not specified in a RETURN statements or if the value of e is 
\ '2SS than one or jr eater than the nunibar of asterisks In the 
SUBROUTINE or subroutine ENTRY statement that specifies the 
currently referenced name^ control returns to the CALL statement 
that initiated the subprogram reference and this completes the 
c:3xecutlon of tha CALL stateii'ent. 

If 1 ^ e 1 aj» where n is the number of asterisks in the SUBROUTINE 
or subroutine ENTRY statement that specifies the currently 
referenced name^ the value of e identifies the £th asterisk in the 
dummy . arouinent list. Control is returned to the statement 
i dent If led by the alternate return specifier In the CALL statement 
that is associated with the eth asterisk In the dummy argument list 
of the currently raferanced nama. This completes the execution of 
the CALL statement. 

16.3.4 QEEIiilliaH.SIMU^. 

lixocution of a RETURN statement (or END ststament) within a 
subpronram causes all entities within the subprogram to become 
undefined/ except for the following: 

(1) tntitifcs specified by SAVE statements 

(2) Entities in blank common 

(3) Initially defined entities that have neither been redefined 
nor become undefined 

(4) Entities in a named common block that appears in the 
subprogram and appears in at least one other proaram unit 
that is referencing^ either directly or Indirectly^ the 

subprogram 

Note that if a named common block appears in the main programs the 
entitit^s In the named common block do not become undefined at the 
»-)Xt!Cutlon of any RETURN statement In the executable program, 

16.'^^ AEGUllEldIs_AtlO«aQMQLl-BLDaii;S 

Arguments and coiiiinon blocks provide means of communication between 
the referencing program unit and the referenced procedure, 
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16.0 FUNCTIONS AND SUBROUTINES 
16.^ ARGUM£HTS AND COHHOM BLOCKS 



Data may be communicated to a statement function or Intrinsic 
function by an argument list. Data may be communicated to and from 
an external procedura by an argyrnent list or common blocks* 
Procedure nasnes may be communicated to an externa! procedure only by 
an argument I i st • 

A dummy argument appears in the srgument list of a procedure. An 
ictual argunant appears In the argument list of a procedure 
r ef erence. 

The number of actual arguments must bs tha same as the number of 
dummy arguments in the procedure referenced, 

16.9.1 fiyiJIJY_AEayiJEHI2. 

Statement functions^ function subprograms^ and subroutine 
subproorams use dummy arguments to indicate the types of actual 
arguments and whether each argument is a single valuer array of 
values/ procedure^ or statement label. Note that a statement 
function dumny arguiient may be only a variable. 

Each dummy argument is classified as a variable^ arrays dummy 
procedural or asterisk. Dummy argument names may appear nherever an 
actual Haine of the same class (Section 19) and type may appear^ 
except Hhere they are explicitly prohibited. 

Dummy argument names must not spp?2ar in EQUIVALENCE^ OATA^ 
PARAM1:TL-R.. SAVE.* INTRIRSIC> or CDMMDN statements^ except as common 
block names, A dummy argument name must not be the same as the 
procedure name appearing in a FUNCTION^ SUBROUTI?IE^ ENTRY, or 
statement function statement In the same program unit, 

A dummy arguinent must not appear as the host array in an IDENTIFY 
statement, 

16.9.2 AQ.I]JAL-.AE2Uii5Ml2 

Actual arguments specify the entitles that are, to be associated with 
the dummy arjum;:!nts for i particular reference of a subroutine or 
function. An actual ar^iument must not be the name of a statement 
function in the program unit containing the reference. Actual 
arguments may be constants, symbolic names of constants, function 
refarences, scalar or array expressions involving operators^ 
vector-valued section selectors* and scalar or array expressions 
enclosed in parentheses if and only if the associated dummy argument 
is not iafined during execution of t ha referenced external 
Procedure, 

The type of each actual argument must agree with the type of its 
associated dummy arguments axcept nhan the actual aroument is a 
subroutine name (16,9,3,^) or ?.n alternate return specifier 
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{16,6«2«3)t 

16.9.3 Ai^QCIAIIfl^l-^E..QU^3^!Y_AHIl-.ACIy^L-AE£yOE^lIS. 

At tha oxcjcytion of a function or subroutine reference^ an 
association Is established between the corresponding dummy and 
actual arguments. The first dummy argument becomes associated with 
the first actual arjument^ the second dummy argument becomas 
associated with tha second actual arournent.* etc. 

All appearances within a function or subroutine subprogram of a 
dummy argumf^nt whose name appears in the dummy argument list of the 
procedure name referenced become sssoclated with tha actual argument 
when a reference to the function or subroutine is executed. 

A valid association occurs only if the type of the actual crgumsnt 
is the same as the typa of the corresponding dun-.my argument. A 
subroutine name has no type and must be associated with a dummy 
procedure name. An alternate return specifier has no type and must 

be associate:! Hith an asterisk* 

If an actual argument Is an expression.* it is evaluated Just before 
the assoc i at i on of arguments takes place. 

If an actual irjument is an arr^y element name^ its subscript Is 
evaluated Just before the association of arguments takes place* 
Note that the subscript value remains constant as long as that 
association of arguments persists^ even if the subscript contains 
variables that are r ©defined dur I ng the association. 

If an actual argument is a character substring name^ its substring 
expressions ar a ev'iluated Just before the association of arguments 
t«5kss pi -ice. Hote that the value of each of the substring 
expressions remains constant as long as that association of 
arguments persists,* even if the substring expression contains 
variables that are redefined during the association* 

If an actual arguriiant is an external procedure name^ the procedure 
!iust be available at the time a reference to It is executed* 

A dummy argument is undefined if it is not currently associated I'llth 
an actual argument. An adjustable array Is undefined if the dummy 
argument array js not currently associated with an actual argument 
array or If any variable ippe^ring in the adjustable array 
declarator is not currently associated vH th an actual argurrent and 
is not in a common block. 

Argument association may be carried through mor« than on^ level of 

proc?idure r^f^renca* A valid association exists at the last level 

only if a valid association exists at al I intermediate levels* 

Argument association within a program unit terminates at the 
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16,<n3 ASSOCIATIOM HF DUMHY AND ACTUAL ARGUMEHTS. 

execution of a RETURN or END statement in the program unit. Note 
that there is no retention of argument association between one 
raferance of a subprogram and the next raferf»nce of tha subprogrem. 

If an eJerientaJ Intrinsic function Is referenced with an array name^ 
array section name^ or array expression as an actual argument^ the 
function Hill be Implicitly referenced ja times vjhere a is the size 
of the actual argument array name> array section name^ or array 
expression. Each implicit reference will associate one of the array 
alamants of the array, array section/ or array expression actual 
aruuinent with tha corresponding variable dummy argument. Every 
array element of the actual argument will be associated during the a 
implicit references. The ordar in nhich ths associations are made 
is not specified. If there Is mora than one array/ array section^ 
or array expression as an actual argument/ each implicit reference 
villi associate the same relative array element of each array/ array 
section/ or array expression. For example/ in the reference to the 
^lementcil Intrinsic function ATAN2 

INTEGER A(10)/ B(-5:4) 
B = ATAN2 ( A/ B ) 

one of the li-ipl I c i t raf arences tc ATAN2 will associate A(l) and 
B(~5) with the corresponding dummy arguments/ another implicit 
reference will associate A{6) and B(0) with tha corresponding dummy 

arjum^nts/ ate. 

16.9.3.1 LsQai:t)-af_£ha£a£i£r_nyoifflY_2Qd-A£iiJ2l-A£nyi2£ii±ii 

If a dummr argument Is of type character/ the associated actual 
ircjurnant Siiust be of type character and the length of the dummy 
argument must be less than or equal to the length of the actual 
arjum.3nt. If the length i£Q of a dummy argument of type chsractsr 
is less than the length of an associated actual argument/ the 
leftmost isQ characters of the actual argument are associated with 
the dummy arjument. 

If a dummy argument of type character is an array name/ the 
restriction on lenjth is for tha entire array and not for esch array 
element. Th^^ length of an array element In th>3 dummy argument array 
may be different from the length of an array element in an 
'issociated actual argument array/ array element/ or array element 
substring/ but the dummy argument array must not extend beyond the 
end of the assoclatad actual argument array. 

If an actual argument is a character substring/ the length of the 

icuual arjUiient Is tha len<ith of the substring. If an actual 

'irjument is the concatenation of two or more opernnds/ Its length Is 
the sum of the lengths of the operands. 
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16,9*3.2 Varial2l£S-.2S-.Uii2iav_^£citjiI!£niSi 

A dummy argymont that is o variable may ba assoclatad with an actual 
arjument that is a variable^ array element^ substring^ or 
expression. 

If the actual argunent Is a vfirlable name> array elenient namej or 

substring nainej- the associated dummy argument may be defined or 

redefined v^lthin the subprogram. If the actual argument is a 

constant* a symbolic nnme of a constant/ a function referenca^ an 

axpresslon involving operators^ or an expression enclosed In 
parentheses* the associated dummy argument must not be redefined 
Hi thin the subprogram. 

16.9.3.3 AL£a::E-££-DuaLl v_A CGUQaatS 

Vlithin a program unit> the array declarator given for an array 
provides all array declarator information needed for the array In an 
execution of the program unit. The number and size of dimensions in 
an actual argument array declarator may be different from the number 
and size of the dimensions in an associated dummy argument array 
declarator only if the actual argument Is an array name or array 
e I ement name . 

The number and sizo of dimensions in an actual argument array 
section or array expression Involving operators or parentheses n^ust 
agree vrith the number and size of the dimensions In an associated 
dummy argument array declarator. 

Permittad associations betwean actual and durnmy arguments are shovin 
by the f o H o ^j i n g table: 
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ACTUAL 
ARGUMENT 



DUMMY 
ARGUriENT 



ARRAY 
NAME 



ARRAY 

SECTION/ 

EXPRESSION 



ARRAY 

ELSHENT 



ASSUMED 

SIZE 
ARRAY HAMS 



ASSUMED 
SHAPE 
ARRAY NAME 



CONSTANT 



YHS 



YES 

Same Shape 



YES 



YES 



YES J 
Same Shape I 



{ ADJUSTABLE! 
I ARRAY 1 



YES 



YES 

Same 



YES 



YES 



Shap 



YES \ 
Seme Shape } 



ASSUMED 
SIZE 

ARRAY 



YES 



NO 



YES 



YES 



NO 



— + 



ASSUMED ! YES 
SHAPE 1 Same 
ARRAY 1 Shape 



YES 

Same Shapa 



NO 



NO 



YES I 
Same Shape \ 



variabl; 



] NO 



NO 



YES 



NO 



NO 



A "YES" entry Indicates that the association is permitted. If "Same 
Shape" is also specified^ then the actual and dummy argument must 

have the sane shape. 

If the actual argument is a noncharacter array name^ the size of the 
dummy argument array must not exceed the size of the actual argument 
arrays and aach actual argument array element becomes associated 
Hith the dummy argument array element that has the same subscript 
value as the actual argument array element^ Note that association 
by array elements exists for character arrays If there is egreement 
In length betvieen the actual argument and the dumr.y argument array 
elements? if the lengths do not agree? the dummy and actual argument 
array elements do not consist of the same characters^ but an 
association still oxists. 

If the actual argument Is a noncharacter array element name^ the 
size of the dummy argument array must not exceed the size of the 
ictusl argument array plus one minus the subscript value of the 
array 3!c'ient. Wh^n an actual argument is a noncharacter array 
element name with a subscript value of ^^^ the dummy argument array 
t^lenient with a subscript value of jjs becomes essocleted v?ith the 
actual argument array element that has a subscript value of 
aa + £!s - 1 (Table 1, 5,5.3). 
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16.9.3.3 Arr-ays as Dumny Arguments 

If the actual aroumant Is a c'iar«»ctf;r array name^ charactsr array 
element nauie^ or character array elenient substring name and begins 
at character storage unit 3QU of an arrays character storage unit 
dO-il of an associate 1 dummy argument array becomes associated with 
character storage unlt\2oii + dcy - 1 of the actual argument array. 

16.9.3.4 ££ai2S£!ii£2a-as-.Q»iQ]iDif-4Lauai2QiSi 

A dummy argument that Is a dummy procedure may be associated only 
v?lth an actual argument that Is an Intrinsic function:* extornal 
function^ subroutine^ or anothar dummy procedure* 

If a dummy argument is used as If It were an external function^ the 
associated actual argumont must be an intrinsic function^ extarnal 
functions or dummy procedure. A dummy argument that becomes 
associated vm th an intrinsic function never has any automatic typing 
property^ even if the dummy argument name appears in Table 5 
{16.10), Therefora* the type of the dummy argument must sgree with 
tha type of the result of all specific actual argumants that become 
associated with the dummy argument. If a dummy argument name is 
used as if It were an external function and that name also appears 
in Table 3j the Intrinsic function corresponding to the dummy 
argument name is not available for referencing within the 
subprogram. 

A dummy arijument thit is used as a procedure natiie In a function 
reference and Is associated with an intrinsic function must have 
arguments that agree in orders number^ and type with those specified 
In Tsble 5 for the intrinsic function. 

If a dummy irjuriient appears In a type-statement and an EXTERNAL 
statement,* the actual argument must be the name of an intrinsic 
function^ extorncil function^ or dummy procedure. 

If the dui;imy argument Is referenced as a subroutine^ the actual 
argument must be the name of a subroutine or dummy procedure and 
must not appaar in u typ a-st atcment or be reforcnced as a function. 

floti^ that it may not be possible to determine In a given program 
unit whether a dummy procedure Is associated with a function or a 
subroutine. If a procedur'? name appears only in o dummy argument 
I istf an EXT'iRNAL staternant<» and an actual argument I Ist^ it Is not 
possible to determine v^hether the symbolic name becomes associated 
with a function or subroutine by examination of the subprogram 
a I o n ==t • 

16.9.3.5 A.S.j:2£isliS-.-lS._Ilijii3m v_A£a!lI!l£Qtli 

A dummy argument that is an asterisk may appear only in the dummy 
arjum^nt li.'3t of a SUBROUTINE statement or an ENTRY statement In a 
subroutine subprogram. 
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A dummy argument that Is an asterisk may foe associated only with an 
actual argument that is an alternate return specifier In the CALL 
statement that identifies the current raferenclng name. If a dummy 
arjument Is an asterisks the corresponding actual argument must be 
an alternate return specifier, 

16.9.3.6 E£Si£i£ii£iQ5-.aQ-.AsSfl£:iatinD-Ql-ED±xtiliSA 

If a subprogram reference causes a dummy argument In the referenced 

subprogram to become associ ated wi th another dummy argument in the 

refarenced subprograms neither dunimy arounient may become defined 

during execution of that subprogram. For example^ if a subroutine 
is headed by 

SUBROUTINE XYZ (A^B) 

and is referenced by 

CALL XYZ (C/C) 

then the dunmy argunsnts A and B each become associated with the 

same actual argument C and therefore with each other. Neither A nor 

a may become defined during this execution of subroutine XYZ or by 
my proceiures referenced by XYZ. 

If a subprogram reference causes a dummy argument to become 

associated with an entity In a common block in tiie referenced 

subprojrani or In a subprogram referenced by the referenced 

subprograms neither the dummy argument nor the entity in the common 
block may become defined within the subprogram or within a 

siibprogram referenced by the referenced subprogram. For examples If 
a subroutine contains the statements: 

SUBROUTIME XYZ (A) 
COMfiriN C 

and is referenced by a program unit that contains the statements: 

COMMON B 
CALL XYZ (B) 

then the lummy argument A becomes associated with the actual 
argument Bs vihlch Is associated with Ci which is In a common block. 
Neither A nor C may become defined during execution of the 
subroutine XYZ or by any procedures referenced by XYZ. 

16.9,4 QQijnaii-aLQaKS* 

A common block provides a means of communication betvieen external 
procedures or between a main program and an external procedure. The 
variables and arrays in a common block may be defined and referenced 
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in al! subprojraRS that contain a declaration of that cofrifnon block. 
Because association is by storage rather than by namej» the names of 
the variables and arrays may be different- in the different 
.iubproar ams, A rafersnce to a datum in a common block is proper if 
the datum Is in a daf Inad state of tha same type as the type of the 
name used to reference the datum* However^ an integer variable that 
has been assigned a statement label must not be referenced In any 
program unit other than the one In which it was assigned (10«3). 

Mo difference in data type is permitted between the defined state 
and the type of the reference^ except that either part of a complex 
datum may be refersnced also as a real datu??. 



In a subprogram that has declared 
in the block remain defined after 
statement i f a 
any program un i t 
e i ther d I rec t ly 



a named common blocks the entities 
the exijcution of a RETURN or EMD 
comrnon block of the same n^fiie has bean declared In 
that is currently referencing the subprogram^ 
or indirectly. Otherviise^ such entities become 
axacution of a RETURN or END statements except for 
specified by SAVE statements and those that were 
initially defined by DATA statements and have neither been redefined 
nor becom^iJ undeflnad. 



undefined a 
those that 



the 

are 



Exc'cution of a RETURN or EMD statement does not cause entities in 
blank common or in any named coi^inion block that appears in the main 
program to bscoms undefined. 

Coi-iHon blocks (Pay be used also to reduce the total number of storage 
units required for an executable program by causing two or more 
subprograms to shtire some of the same storage units. This sharing 
of storage Is permitted if the rules f'or defining 8nd referencing 
data are not violated. 



CONTROL DATA PRIVATE 



Control Data Corporation Standard FORTRAN 



16-28 
83/06/30 



16.0 FUNCTIOHS AND SUBROUTINES 
16,10 TABLE 5 INTRINSIC FUNCTIONS 



16.10 IAaL£-.5__IMIRItiSiC-.EULiaiIQHS 



Elemental Intrinsic Functions 



1 

t 


-+- 




— f -— 

1 Number 


0" 


-+- 

F 1 


Generic 


-+ • — 

j Spec If 1 


c J 


Type 





r- 


1 Intrinsic Fun ot 1 on 


_X- 


Definition 


1 Argument^ 


s] 


Name 


\ Name 


••4.. 


Argument 


■•4>a 


Functi on 


\ Type Convar^ion 




Conversion 
to Integer 
int(B) 

See Noti3 1 


I 1 






I NT 


! INT 
! IFIX 
I IDINT 
S IHINT 




Integer 
Real 
Real 
Double 
Hal f 




Integer 
Integer 
Integer 
Integer 
Integer 




.!.« 








m4.« 




_ 4. iXiM .« «a _ a. .M .a 


•»4>> 


Comp lex 




Integer 






Conversion 
to Real 
See Note 2 


I 1 






REAL 


J REAL 
? FLOAT 

\ SMGL 
\ EXTEND 




Integer 

Integer 

Real 

Double 

Half 




Real 
Real 
Real 
Real 
Real 




Mm 




..^ .1. ai^a »• _• .B >• ..» > 




^ J.^ 




_X«i»M» — -.— i«-i— — 1 


... 1 . 


Comp 1 ex 


K.4>< 


Rea 1 






Con vers 1 on 


J 1 






DELE 






Integer 




Double 






to Double 










J - 




Real 




Doub 1 e 






See Note 3 










J - 




Doub le 
Complex 




Doubl e 
Double 






Conversion 
to Complex 

See Note 4 


: 1 or 


2 




CnPLX 


1 - 




Integer 
Raa 1 
Doub le 




Comp 1 ex 
Comp 1 ex 
Complex 












-••4>i« 




■• 4 axXMi.. •»••'.••« 


«-i J>> 


CompI ex 


..4. 


CompI ex 






Conversion 
to Integer 


I 1 








J ICHAR 




Character 




Integer 




4- 


See Note 5 
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,^Mm 




>i 4. «a.awa<>i •»..»«««• 
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Conversl on 


! 1 








1 CHAR 




Integer 




Character 






to Character 






















+• 


See Note 5 






















Conversion 


! 1 




— T" 


HALF 


■■ -f ■-»-•""■— •-■"»•»"" 


■— T* 


Integer 


"•T* 


Hal f 






to Half 










1 - 




Rea 1 
Double 
Half 
Comp 1 ex 




Half 
Half 
Half 
Half 



+ 4 4 ■ ^ +-- -+ + + 
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Tab 1 e 5 ( cont i nued) 
Elemental Intrinsic Functions 



+ + + + . -+ . + + 

I t I Number of! Generic J Specific* Type of 

I Intrinsic Function 1 Definition J Aruurnents ! Name J Name J Argument * Function 

+«— . — --. +-.-.-. — .. — +--. ———+«.- — + — -.^ — -.-.-.+-.«-._«„ — «— .+-.^— «-- .-- — 

{ ! Conversion I 1 \ BOOL J — J Integer ' Boolean 

1 1 to Boolean J J J — J Real J Boolean 

{ I See note 14 I ' I — I Double J Boolean 

{ I ] I J — J Half J Boolean 

1 i I I J — J CoiDplex I Boolean 

I II I J — J Character I Boolean 

+ ..+- , + + + — + -+ • 

I 1 Conversion III * BTOL « Bit ! Logical 

I I to Logical \ I J • * 

+ + + • + + + — — + 

I {Conversion ! 1 ! ' LTOB J Logical J Bit 

I 1 to Bi t I ; I S J 

+ . . + ■ — +- + . + . + + 

J Truncation \ int(2) ! 1 J AINT ! AINT \ Real J Real 

I ; See Note 1 ! I I DINT J Double J Double 

; I I ] ! HINT J Hal f ! Half 

I Maarest Whole I intCa+.S) If a>0! 1 ! ANIHT \ AMINT J Real \ Real 
I Number J int{2-.5) If 2<0] 1 ] I DNINT J Double 1 Double 

! J I ! ! HNINT J Half J Half 

+ . — i- ^ + + + + + 

{ Nearest Integer J int(B+,5) If ij>0! 1 • NINT 1 NINT { Real J Integer 

\ lnt(ii-.5) If B<01 1 ! \ IDNINT J Double 1 Integer 

! I ] \ \ IHNINT J Half 1 Integer 

jf. _ -^ _ — .-.-,-.+-_—.- -,«. — . -—^-.-.—^ ——-.+-. — — -.-,+-.-.-.-.—-.-.-.+-.-.—.-.———+-.-.-.-.-.—-.- 

I Absolute Value I liii 111 ABS J lABS ! Integer J Integer 

! J ! J { ABS J Real \ Real 

! J See Note 6 ! I { DABS J Double I Double 

I 1 11} HABS J Half J Half 

', J ( ar**2+ar"-*2)*^,5! 1 I { CABS \ Complex 1 Real 
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Table 5 (continued) 
El omenta I Intrinsic Functions 



+- 




-+- 
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Spec i f 1 
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Type 
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Definition 
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See Note 1 
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Double 
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Double 
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Half 
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1 
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Integer 
Real 
Double 
Half 




Integer 
Real 
Double 
Half 
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Tab 1 e 5 { cont i nued) 
Elefrental Intrinsic Functions 



+ + + + + . + -4 

? {Number of! Generic I Specific* Type of 1 

Intrinsic Function I Daflnltion lArguinentsJ Meme { Name } Argument l Function J 

_. : — + : + + . + + +-. + 

Choosing Smallest ! mi n (slj^a^^ . . # ) J >2 ! MIN • MIMO • Integer J Integer ? 
Value I ! J I AMINl \ Real J Real 1 

\ ! J I DMINl J Double I Double \ 

I I ! J HMIHl I Half J Half J 
J « + — + + + . + 

J ! J ! AMINO I Integer J Real I 

! ; ! \ MINI J Real J Integer I 

, + ^ + + + + + 

Length I Length of I 1 J ! LEN I Character \ Integer \ 

] Character Entity? J ! . J i • 

_-. , . + < +-- «+ + + — -+— « + 

Index of I LocTjtion of 12 1 • INDEX { Character J Integer \ 

a Substring \ Substring a2 1 I J ! \ 1 

J in String al 1 1 \ I \ \ 

\ See Note 10 I \ 11 J 

+ -. + + + + + + 

Iniaainary Part of I &i III \ AINA6 I Complex \ Real J 

Complex Argument ! See Note 6 { I ! J 1 J 

Conjugate of a I <a£^-£i) III J COUJG J Complex I Complex I 

Complex Argument ! See Note 6 ' * ! J \ I 

, +- -. + + + + +-.- — ■ . + 

Squara Root I (^)=i'*l/2 1 1 \ SORT J SORT J Real ! Real J 

\ ] \ ! DSQRT ! Double 1 Double J 

; ] I i HSQRT J Half I Half I 

I III CSQRT J Complex J Complex I 

+ + + + + + 
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T ah 1 e 5 { cont i nued) 
Elemental Intrinsic Functions 
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I 
I 



+• 

er of 1 
ments 1 



of 



Intrinsic Function ' Definition 



Arou 



Gener i c 

Mame 



Spec i f i 



Arg 



Type 
ument 



Funct i on 



Exponent i a I 



e-^*^ 



EXP 



EXP 
DEXP 
HEXP 
CEXP 



I 



Rea 
Doul 
Hal 
Comp I e?? 



lb le 
f 



Real 
Doub 1 e 
Hal f 
Comp I ex 



Natural Lo^arlthni 



I o g ( 2 ) 



LOG 



ALOG 
DLQG 
HLOG 
CLOG 



Rea 
Dou 
Hal 
Com 



I 
ble 

f 
plex 



4.-.,. 



Real 
Double 
Half 
Comp I ex 



Common Logarithm 



loglOCii) 



I LQGIO 



J ALOGIO 
! DLOGIO 
I HLQGlO 



Rea 
Dou 
Hal 



I 

ble 

f 



Real 
Doubl e 
Half 



S Ine 



s I n (fl) 



SIN 



SIN 
DSIN 
HSIN 
CSIN 



Rea 
Dou 
Hsl 
C om 



I 

ble 
f 
p i ex 



Real 
Double 
Half 
Comp I ex 



Cosine 



c s ( a ) 



COS 



1 COS 

1 Dcas 

] HCQS 

! CCOS 



Rea 
Dou 
Hal 
Cotr- 



I 

ble 
f 
plex 



Real 
Doub I e 
Half 
Comp I ex 



Tangent 



tan (a) 



TAN 



J TAN 
1 DTAN 
I HTAN 



Rea 
Dou 
Hal 



I 

ble 
f 



Rea I 
Doubl e 
Hal f 



Cotangent 



cot an(a) 



COTAH 



C0TAr4 



Rea 
Hal 



Reel 
Half 
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Tab I e 5 ( cont i nued) 
Elaniental Intrinsic Functions 



.+ 4- + + 

I Number ofl Generic \ Specific 
1 Arguments I Name * Name 



of 



I Intrinsic Function I Definition 



Type 
Argument 



Function 



I Arcsine 



! arcsint^) 



AS IN 



J AS IN 
\ DASIN 
J HASIN 



Real 

Double 

Half 



Re 
Do 
Ha 



al 

ubie 
If 



! Arccosina 



I >arccos{a) 



! DACOS 
; HACOS 



Real 
Doub I e 
Half 



Re 
Do 
Ha 



ai 

ubIe 
If 



I Arctangent 



f arc tan (a) 



AT AM 



J arct an (3I/22) 



ATAN 

DATAN 

HATAN 



Real 
Doub I e 
Half 



I ATAN2 



ATAN2 
DATAN2 



+ _ ^ ~ — «— . 

I Hyper bo I i c Si ne 



Real 

Double 

Half 



Re 
Do 
Ha 



al 

ubIe 

If 



Re 
Do 
Ha 



al 

ubIe 
If 



I si nh (5) 



SINN 



J DSINH 
\ HSINH 



Real 
Doub Is 
Half 



Re 
Do 
Ha 



ai 

ubia 

If 



{ Hyperbolic Cosine I cosh(B) 



COSl 



COSH 

DCOSH 

HCOSH 



Real 
Doub I e 
Half 



Re 
Do 
Ha 



ai 

UbIe 
If 



Hyperbolic Tangent ! tanh(ii) 



I TANH 
J DTANH 



Real 
Doub le 
Half 









Re 
Do 
Ha 



al 

ubIe 

If 



— + 
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Tab 1 e 5 ( conti nueci) 
Elemental Intrinsic Functions 



+ + + + + + + 

1 I I Number of I Generic ! SpecificJ Type of 
'Intrinsic Function 1 Daflnition lArgumentsJ Mama } Name J Argument ' Function 

4--- -+- -+ - + - ■ + ■ +- ~ + 

J Lex ica 1 1 y Greater ! ^1 ^ ^2 J 2 1 ! LGE J Character J Log 1 ca 1 

I Than or Equal I Sea Note 12 I \ \ \ \ 

+ + + + + + + —- . 

\ Lexically Greater 1 jl > ^2 12 \ \ LGT J Character J Log! col 
I Than ! See Note 12 J J i J 1 

+- + ■ -+ + + + + — 

; Lexically Less J jl ^ ^2 5 2 ! { LLE 1 Character J Logical 
i Than or Equal * See Note 12 ! * } \ \ 

+ + + + + + ^ + 

] Lex i cal 1 y Less 1 al < £2 \ 2 \ 1 LLT I Character J Logical 

+ +^ : .+ _+-- . + : + ' ,+, 

I Random Number 1 Random number } or 1 J ! RAHF J 1 Real 
i Gensr?.vtor I in range C0»?1.)! \ \ I \ 

1 J See Note 13, ! ! 1 { \ 

^ — . — .-, — . . — .-.-.-.+ , + .«. — +«_ + + — . +■ 

1 1 of 3l shifted I 1 1 ichar> bi t^ or J 
I ! \ ! J 1 half \ 
! 1 il2 bi t posi t Ions « \ \ {^2: inteoer! 
J 1 See Note 15 ! ! ] J J 

+ .-.+ + + + + + 

1 1 of ii left- ' ! J J J 
1 I justified 1 bits! { \ 1 ! 

1 } See Note 16 ! I J { J 

+ + + + + + + 

I Error Function J erf (a) * 1 1 J ERF J Real J Real 

1 Complementary J erfcCa) J 1 ' • ERFC J Real J Real 
iLrrorF unction !SeeNotel7, I ! \ \ J 

+ . + + + + + + 

I Hyperbolic \ atanhCa) '. 1 J } ATANH J Real \ Real 
{Arctangent I I \ \ \ \ 


1 Sine I sindtii).* where * 1 J ! SIHD ! Real J Real 

1 Ijisindegreesl * { J ! 

+ + + + + + + 

I Cosine ! cosd(^)j< where ! 1 I J COSD J Real J Real 
1 1 ij i s in iegreos j I \ J ! 

1 Tangent ' tand(a). where ! 1 ! J TAND 1 Real I Real 
1 ! n Is in degrees 1 ] 5 } ! 



+ 



. — + +-. + + + +-„ + 
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Tab I e 5 ( cont i nued) 
Elemental Intrinsic Functions 



4- 4. 4. 4. 4. .-4. 4. 

I } JNumber of! Generic ! Specific! Type of 

! Intrinsic Function 5 Definition lArguments! Hams 1 Hame I Argument J Function 

4.-. — - — . 4.-.. ^,-4. 4. .^ 4. 4. 4. — . 

1 Boolean Product ^Boolean result of! any>=2 I \ AND Jany but bit! Boolean 

I I .AND. operator ! I I ! or char \ 

\ I See ^?ot^ 33 ! 1 ! {Bit JBit 

4. -. « 4— — . -—4- . —4.- .. 4. 4. 4. . 

! Boolean sura JBoolean result of! any> = 2 ! ! OR {any but bit! Boolean 
I ! .OR. operator I I ! { or char \ 

! ! See Note 33 1 ! ! ! Bit JBit 

4. 4. 4. 4. 4. 4. 4. — : 

\ Exclusive Or {Boolean result of{ any>=2 I J XOR !any but bit! Boolean 
{ I .XOR. oporator I { I I or char ! 


I Honequ i val snca { Same as ! 3ny>=2 ! ' NEQV Jany but bit J Boolean 

! t Exclusive Or ? ] ! J or char \ 

! I See Note 33 { I { I Bit I Bit 


I ! .EOV. operator ! { J ! or char { 

{ See Mote 33 { ! ! {Bit ! Bit 

4. 4. . 4. 4. 4. 4. 4. 

{ Complerrjent 'Boolean result of! 1 I ! COMPL {any but bit! Boolesn 
1 1 .NOT. operator \ \ ! { or char { 

{ ! See Note 33 { ! { J Bit { Bit 

+ 4. 4. 4. 4. 4. , 4... 

I Extract Bits \ ext b (a.'ij' i) 13! ! EXTB Ja: See ! Boolean 
! ! See Note 18 I \ \ \ Note 18 ! 
J 1 I I 1 lis Integer ! 

I ! ! I ! !J: Integer ! 

4. . , 4. 4. 4. 4. 4. -4. . 

! Insert Bits ! insb (a^ij. J,i2) { 4 ! ! INSB Jb and iisSee! Boolean 
! ! See Not^'i 19 I ! 1 ! Note 19 ! 
! ! ! 1 ! lis Integer ! 

4. 4. 4. 4. 4. -4. 4. 

! Marge under mask ! See Mote 20 I 3 I MERGE { { ^1,^2. int { Integer 
1 ! ! ! I ! 2.I93Z Real I Real 
! I I ! ! ! 2ljii2 Dbl 1 Double 
! ! ! ! ! ! ^1^22 Half! Half 
I • { I { { ^1/^2 Cpl X J CompI ex 
! ! ! ! ! ! ^I>£i2 Loo I Logical 

I ! ! 1 ! ! Bl^22 Bit ! Bit 



4. 4. 4. 4. 4. . — 4. 4. «. 4. 
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Tab 1 e 5 (continued) 
Array-valued Intrinsic Functions 



,{. , 4 4. + + 4. 4. 

1 1 1 Number of{ Genaric S Specific* Type of 

1 Intrinsic Function { Definition 1 Arguments' Name { Name { Argument { Function 


{ Dot Product Jsum(con5g(£l)*32){ 2 {DQTPRDDUCTl ? Integer J Integer 
{ { See Note 21 ? { • { Real I Real 
{ 1 * t t 1 Double 1 Double 
1 { J { J { Hal f J Half 
? { { { { ? Complex J Complex 

1 jIatrix Transpose { Ron and column { 1 {TRANSPOSE { S Integer . { Integer 
1 {Inter ch an geofl { { {Real {Real 
{ \ h { I { » Doubl e { Doub 1 e 
I { See Note 22 { { J {Half {Half 

{ { { { { { Logical { Logical 
{ I { { { ! Character { Character 
{ { 1 { { J Bit {Bit 


{ SumiTiation { Sum of all 11^ 2>or 3! SUM { J Integer { Integer 

{ { 2l along dimen- 1 { { { Double { Double 

{sion qZ { { { {Half {Half 
{ { See Note 32 { { { { Complex { Complex 


{ product { Product of all 1 1.» 2jor 3{ PRODUCT { { Integer { Integer 
1 { the elements of { { { ' Real { Real 
{ 1 al along dimen- { { { { Double { Double 
{ { sion ii2 { { { { Hal f {Half 

! {S?2eNote32 { { { {Complex {Complex 

.f 4. 4. 4. . — 4 4 4 

1 Value of Maxirium { Maximum of all \l* 2^or 3{ MAXVAL { { Integer { Integer 

1 { along dimension { { { { Double {Double 
{ { a2. See Note 32 J { { { Half 1 Half 

-H .^4 4. 4. 4. 4. 4 . 

1 Valuer of nininium { Minimum of all {1^2^or3iMINVAL { {Integer {Integer 
1 E 1 allien t of an array' elements of al I ' { {Real {Real 
{ 1 along dimension ' J { ' Double { Double 
{ I 22. Ses Mote 32 { { { {Half 1 Half 

4. . 4 . . . J. 4 . 4 4, 4 

{Count number of {Count of the 1 lor2 {COUNT { {Logical {Integer 
{ trucj values { number of true { { { { • 
{ la 1 ements of 2I ! ' { { { 
{ {alongdimensionl { { { { 
{ { j2. Sea Mote 23 { { { { { 



4 , _4. . ^ ^ 4 4 + 4- .^ 4 
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T ab 1 e 5 ( cont inued) 
Array-valued Intrinsic Functions 



> . + — ^ , + + + _+ + , 

I ,' INumber of' Generic J Speclfict Type of 

I Intrinsic Function 1 Definition 'Arguments} Mema ! Nams J Argument 1 Function 

I Find any true value! .TRUE. I f any ' 1 or 2 'ANY ' J Logical ' Logical 

I I ej ement of al i s J ' ' ! ! 

! ' t r u 9 a ! n g 1 I ' J 5 

1 I dimension aZ^ J I ' J J 

I I . F A L S E • i f n 1 J ! { \ 

\ 1 eJerrents of al J ' • J J 

I I ar e true a I ong 5 ! I « ! 

I i d i m e n s i n a 2 I J I I ? 

I ' See Note 23 I ! I J J 

+ ^-.+ . + — : ^ +— -+ — , -.«+ . + .- 

I Find ai 1 true 1 .TRUE, if al 1 \ 1 or 2 J ALL J J Logical I Logical 

I values 1 elements of al I j • J J 

! I are true a 1 ong I ' I i ' 

J ' dimension £2,# 1 I I J J 

I \ .FALSE, i f any \ ] \ \ \ 

\ I el ement o f al J ' ! { J 

t 1 Is false a I ong ! ' I \ J 

\ id imens i on a2 I ! ' \ \ 

{ I Sas Note 23 1 I I I \ 

+ , „ — ^ + + + + + + 

J Matrix Multiply ! riatrix Multiply ] 2 ! MATMUL 5 J Integer { Integer 

I 1 al by a2 ] . I ', . J Real '.Real 

I I See Mote 24 J { \ \ Double I Double 

! \ \ \ \ I Half { Half 

J I ] \ \ \ Complex I Complex 

i I 1 I I t Log I cal I Log I ca I 

+ — + + + + _+ « — + — 

! Number of ! See Note 25 111 RANK 5 ! Integer J Integer 

I dimensions of an ! J ' ! ,' Real 'Integer 

1 array 1 ! ' ' ' Double ! Integer 

J ! II J J Half I Integer 

I I III! Complex I Integer 

I I ! 1 1 iLoglcai J Integer 

' I J I ' ICharacter'Integer 

\ t I J J {Bit ,' Integer 

1 J 111 I Boolean ! Integer 



+« . + . — + + + + + + 
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16.10 TABLE 5 INTRINSIC FUNCTIONS 



Tab I e 5 ( cont i nueri) 
Array-valued Intrinsic Functions 



+ + + + ■ -4 + + ■ 

1 \ 'Number of I Generic ! Specific* Type of 

1 Intrinsic Function * Definition J Arguments 1 Name J Name J Argument * Function 


! Pack Array into ' See Note 30 J 2 or 3 1 PACK • 131^53 Int \ Integer 
} Vrictor J J 1 1 l£il^^3 Real i Real 
1 1 I 1 • Sal>^3 Dble J Double 
! 1 1 1 J Jsl»il3 Half \ Hal f 
1 ! 1 I 1 ial>23 Cp 1 X J Cp 1 X 
I 1 J 1 1 J B 1 ^ £ 3 L g 'Logical 
1 1 ! 1 1 121^^3 Char \ Character 
J 1 I 1 1 Jal*£3 Bit J Bit 

1 I t 1 ! »al^a3 Bool { Boolean 

-i. — ^ — f . .■ — +-, ««. + + ». + + 

1 Array 1 ! 1 ' i2l<»23 Real ! Real 
1 1 I I '• \^lp^3 Dble \ Double 
1 I I ! I l2l>53 Half \ Half 
1 J ! ! 1 i2l^j3 Cplx \ complex 
! 1 1 II »iil>£3 Loq \ Logical 
1 1 ! \ \ 121^^3 Char ' Character 
I J 1 I \ lal>£3 Bit I Bit 

1 1 1 1 1 J2l*23Bool?Boolean 

^ + . + . ^ + . ^ : + 

! Create Diajonal ! See Note 34 I 2 'DIAGONAL 1 Jiil^aS Int J Integer 
! Array J I ! J J2l>23 Real J Real 
! • 1 I 1 1 i2l*j3 Dble J Double 
I 1 ! \ ! J2l>53 Half 1 Half 
1 t 1 1 1 'alj^s Cplx 1 Complex 
I I III 53l^a3 Log J Logical 
1 ' J 1 • 'iil^^3 Char 1 Character 
! \ ; J '• 121^23 Bit ? Bit 

I ! ! t 1 i£l^£3 Bool J Boolean 

..f-.: . .+ + + + + + 

\ Saquenca of I See Note 35 ' 2 or 3 ! SEO i J Integer \ Integer 
{ Intayars I 1 1 I l J 

I Logical Alternation! See Note 36 13 ! ALT { I Integer ! Logicsl 



+ 



J. + + 4 + ^ — + 
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16,10 TABLE 5 INTRINSIC FUNCTIONS 



Table 5 (continued) 
Array-Valued Intrinsic Functions 



+ + + ■ + +. ~— — + + 

I I I Number of? Generic • Specific* Type of 

J Intrinsic Function 1 Definition lArgumcintSi Mame I Name J Argument i Function 

+ — , . + + — , . + + + , + — 

I Size of Array I See Note 26 * 1 or 2 J EXTENT \ J^l Integer J Integer 

{ Dimensions ! 1 I J i£l Reai 1 Integer 

I I ! J I J^l Double I Integer 

I I 1 II 1 n 1 Half I Integer 

I ! I t I 'al Complex { Integer 

J { I I I i2l Logical \ Integer 

I J ; ! t i2l Char J Integer 

1 I J I I 1^1 Bit {Integer 

\ I I ! I l^lBooleanJlnteger 

4. -> : — ; + -.— ^.\. + « .4. « . + 

i Size of Array 1 See Note 27 \ 1 ' SIZE J ! Integer J Integer 

I J I 1 I I Real 1 Integer 

! I 1 ! I I Double J Integer 

I I I I I J H a I f J I n t e g e r 

{ 1 1 ] I i Complex ! Integer 

I I 1' I I I LogI C3l I Integer 

* I ! I I I Character ! Integer 

I I 1 \ I I B i t J Integer 

I ! I 1 J I Boolean ! Integer 

+-. . ««.+ -.+ ^4.— — + -.-.+ 4.- 

I Lovrer Bound ' See Note 28 I 1 or 2 I LBDUND J J^l Integer J Integer 

I of an Array J J I 1 l^l Real J Integer 

I I I i I ifil Double I Integer 

I I I \ I 1^1 Half {Integer 

I I I 1 I Jal Complex I Integer 

I 1 * ! I i2l Logical • Integer 

! I } I I IfilChar {Integer 

I I ! I I lalBit {Integer 

I I I { I {nl Boolean { Integer 

+ ^ — + + 4. + + . + — -— 

{ Upper Bound { Sae Note 29 { 1 or 2 { UBOUNO { {£l Integer { Integer 

I of an Array { ' ' { {^1 Real {Integer 

I I I I I l£l Double I Integer 

{ I 1 { { {^1 Half { Integer 

I I { 1 I ii3l Complex I Integer 

1 I I { { {2lLogical{Integer 

I { { I { \2il Char { Integer 

I I 1 { { ijlBit {Integer 

I I { { I {jslBoolean{Intener 



+ + + + + + + ~+ 



CONTROL DATA PRIVATE 



Control Data Corporation Standard FORT RA 11 



16-40 
83/06/30 



16,0 FUNCTIONS AND SUBROUTINES 
16,10 TABLH 5 INTRINSIC FUNCTIONS 



Table 5 (continued) 
Array-valued Intrinsic Functions 



+ -+ + + + + + 

1 I '.Number of { Generic ! Specific! Type of 

j Intrinsic Function \ Definition J Arguments! Mame ! Name ! Argument ! Function 


1 Convert ! See Note 37 ! 1 iROWWiSE ! ! Integer ! Integer 

' RoviHlse Array Into ! ! ! ! * Real ! Real 

! CoJuRinHise Array ! 1 I J ! Double 1 Double 

! J I ; ! I Half ! Half 

\ \ t It ! Complex ! Complex 

! t ! 1 1 'Logical ILogical 

1 1 I I ! ! Character i Character 

! I I ! ! ! Bit 1 Bit 

I 1 ' 1 ! ! Boolean ! Bool ean 
1,^.. « ._ , , , .„ _. 1 ,_ , „, 1, .,, _ _._. f • ■ .1 .««..■ 


! Columnwise Array ! ! I I I Real \ Real 
\ into Rowwise Array I ! ! I ! Double ! Double 
1 ! 1 ? 1 1 Half J Half 
I 1 ! 1 ! ! Complex i Complex 
t ! 1 ! I t Logical ! Logical 

! ] ] ! ! ! Bit ! Bit 

I ! 1 ! ! I Boolean { Boolean 


I Increase Rank ! See Note 39 5 3 ' SPREAD ! 1 al Integer! Integer 1 
{ of an array ' ' 1 ! * al Real ! Integer ! 
1 1 ] \ ! liilDble! Integer! 
I ! 1 I 1 • ill Half ! Integer ! 
I 1 ' I 1 ! ^1 Complex! integer I 
1 1 1 ! 1 tBlLogical!lntegeri 
t 1 ' ! ! !alChar'Integeri 
' t 1 1 ! I 2l B It I Integer I 
1 1 ' J 1 I 2l Bool I Integer ' 

Am^m.^mwtmmmwm^m^^mmmmm^mm^-^.^^»»>^mm,m».mm'^-mtd,m,mmmm,^mm M w «m«m m* m. -» •* mm w m« w mm »!• »M wiw* «« .wi «m M» m. mm .1. ■• mi m ■« m« »■ m» «« •» J • " -*- 


! Raplicate an ! See Note 40 ' 3 {REPLICATE 
! array dimension 1 I ! 


1 i2l Integer! Integer * 

! ! ^1 Real ! Integer ! 

' 2l Oble ! Integer I 

! al Hal f I Integer ! 

1 iil Complex! Integer \ 

1 al Logical! Integer ! 

1 2.1 Char ! Integer ! 

! ! al Bit I Integer 1 

! I ijl Bool 1 Integer ! 
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Motss for Table 5: 



(1) For a of type Integer^ int(a)--=a» For a of type real^ half 
precision/ or double precis ion> there are two cases: If Iji < 
1» int(a)=Oj if \^\ ^ !» inttj) is the Integer whose 
•nanni tude Is the largest Integer that does not exceed the 
magnitude of ^ and whose sign is the same as the sign of a* 
For ax ampler 

lnt(-3.7) = -3 

For a of type complex^ int(a) is the value obtained 
by applying the above rule to the real part of a* 

For ^ of type real/ IFlXCa) is the same as IMT{b)» 

For a of type Boolean/ INT(a) Is the integer represented by 
t h e b i t s t r 1 n g fi • 

For a of typn half/ INT{a)=INT( RE AL(i) ) • 

(2) For ii of type real/ REAL(£) is 3. For B of type Integer/ 
double precision/ or half precision/ RrAKa) is as much 
precision of the sioniflcant part of b as a real datum can 
contain. For a of type complex/ REAKa) is the real part of 

For 3 of type Integer/ FLOAT(a) is the same as 
REALCa) . 

For ii of type Boolean/ REAL(a) Is the real datum represented 
by the bit string a« 

(3) For ii cf type double precision.* DBLE(a) Is a» For a of type 
intensr or real/ DBLL-(5) is as much precision of the 
significant part of a as a double precision datum can 
contain. For a of type complex/ DBlE(ij) is as much precision 
of the significant part of the real part of 2 as a double 
priicision datum can contain. 

For a of type half or Boolean/ DBLE {ii) = DBLE (REAL ( a ) ) , 

( <+ ) CMPLX may have one or two ^^rauments. If there is one 
arguniant/ It nay be of type Intcjer/ real/ dnub I e prec is I on/ 
or complex. If there are two arguments/ they must both be of 
the same type and may be of type integer/ real/ or double 
precision. 

For ii of type complex/ CMPLX (a) |s a* For 2. of type integer/ 
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real^ or double precision^ CMPLX{^) is the complex value 
whos*^ real part is REAL(£) and nhose imaginary part is zero* 

CMPLX(iil,*22) is the complex value whose real part Is REALt^D 
and Hhose ifnaglnary part Is REAL (j 2). 

For a of type half or Boolean:, CMPLX(^) =CHPLX( REAL C^) ) • 

(5) ICHAR provides a means of converting from a character to an 
integer^ based on collating weight of the character in the 
collating vieight table used by th« processor. The first 
charactar In the collating sequence corresponds to position 
and the last to position Q~l/ where n is the number of 
characters in the collating ssquance. 

The value of ICHAR(a) Is an Integer in the range: 
£ ICHAR(a) ^ Q-Ij where ^ is an argument of type character 
of length one. The value of b. must be a character capable of 
representation in the processor. The collating weight of 
that char act ^rr is the value of iCHAR. 

For anj characters cl and c2 capable of representation in the 
Processor J (£l .LE. c2) is true if zno only if 
(ICHARCcl) •LE. ICHAR{c2n is truej. and (£1 ,EQ. £2) Is true 
if and only if {ICHAR(cl) .Eo. ICHAR(£2)) is true* 

CHAR(i) returns a character having collating weight i in the 
collatinvj Height table used by the processor (3«1»5). If 
more than one character has collating vieight i^ the choice of 
char;\cter raturnad is made by the proc^Jssor. The value is of 
type character of length one, i must be an Integer 
expression whose value must be in the range ^ i ^ B""1 • 

ICHAR (CHAR (i) ) = i for ^ i £ n-1. 

CHARdCHARCfi) ) = £ for any character o capable of 
representation in the processor, 

(6) A complex value is expressed as an ordered pair of reals/ 
^lLyjL)> Khore bL is thB real part and 2.1 is the In53glnary 
par t« 

(7) All angles are expressed in radians. 

(8) The result of a function of type complex is the principal 
va I ue . 

(9) All arg'-Jnients in an intrinsic function reference must be of 
th'5 sanici type, 

(10) IMDEX(alj22) returns an integer value indicating the starting 
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position within the character string al of a substrinO 
identical to strlnci a2« If a2 occurs more than once in zIj 
the starting postion of the first occurence is returned* 

If b2 docis not occur in al^ the value zero is returned. Note 
that zero is returned if LEM(al) < LEN(22). 

(11) The value of the argument of the LEN function need not be 
defined at the time the function reference is executed, 

(12) LGE{al^a2) returns the value true if al=52 or if al follows 
b2 In the coHatlng sequence described in Arnerlcan National 
Standard Code for Information Interchange^ AMSI X3. 4-1977 
(ASCii)^ an;.1 othtirvHse returns the value false. 

LGT(al.»22) returns the value true i f al follows ^2 in the 
collating saquanca described in ANSI X3. 4-1977 (ASCII)^ and 
otherwise returns the value false. 

LLE(alj'32) returns the value true if ^1=^2 or i f al precedes 
a2 In the collating sequence described in ANSI X3, 4-1977 
(ASCII)* and otherwise returns the value false. 

LLT(al^a2) returns the value true if al precedes a2 in the 
col I at 1 ng sequence described In ANSI X3. 4-1977 (ASCII)/ and 
otherwise returns the value false. 

If the operands for LGEi LGT* LLE* and LIT are of unequal 
length/ the shorter operand is considered as If it were 
extended on the right with blanks to the length of the longer 
operand. 

If either of the character entitles being compared contains a 
character that is not in the ASCII character set* the result 
is processor-dependent.. 

(13) The values are uniformly distributed in the range (0.*1.). 

If one argument is present/ it determines the shape of the 
result returntid. For cxampi e/ RAMF(B) where B has shape 
(4/3) will return an array of randoiii numbers with shape (4/3) 
and RANF(X) where X is a scalar will return a scalar. 

(14) For £i of type integer/ real/ or Boolean/ BOOL(a) is the bit 
string constituting the datum. For a of type double 
precision/ h^l f precision* or complex/ BOGL(a) = BOOL 
(REAL(a))» For a of type character/ BDOKa) is the Boolean 
d^tufj hsvinj the value o^ the Hollerith constant 
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where : 

Q is the integer having the value of MIN(a> LEN{j)>^ 
i^hare u Is the inaxifjium number of characters 
represen tabi e in internal processor code in a 
Boo lean datum 

f Is the string of the leftmost q characters of a, 

(15) Tha shift Is loft circular if ^2^0^ and right with sign 
extension and end off if a;?<0* For al of type integer^ real^ 
logical or Boolean:* the bit string constituting the datum Is 
shifted. For 3I of type double precision or complex^ the bit 
string constituting REAL (al) Is shifted. 

(16) The string of b 1 bits occupies the leftmost a b|t positions 
if 0<ja^a, where a is the number of bit positions in one 
nunierfc storage unit. The fill Is a string of bits. If 
a=Oj all bits in the result are bits. 



(17) 
(18) 



(19) 



(20) 



erfcCii) = l""erf(£) 

EXTB extracts bits from its first argument/ as indicated by 
its second and third arourrisnts. The first argument may be of 
any data type except character or bit. For a half precision^ 
double precision/ or complex first argument/ the argument Is 
converted to REAL(a), 

Arguffients i and J F'ust be of type Integer, Argument i 
indicates the first bit to be extracted/ numbering from bit 
zero on the left. Argument J Indicates the number of bits to 
be extracted, 

INSB inserts bits from its first arguments ^s Indicated by 
Its second and third arguments* into a copy of its fourth 
argument. The fourth argument itself is not altered. The 
first and fourth arguments may ha of any dita 
character or bit* For a half precision^ double 
complex first or fourth argument/ the argument 
to Ri:AL(a) or Rl;AL(]2) respectively. 



type except 
precision/ or 
is converted 



Arguments i cind J must be of type Integer, The result is the 
value of argument Ijexcept that i bits beginning with bit i 
are replaced with the rightmost J bits from argument a. Bits 
are numbered from the left beginning with zero, 

MERGE produces a r esul t vjh I ch con tains the value from il when 
the corresponding value in ^3 is true/ otherwise it contains 
the vaiut) from 32. a3 must be e scalar or array expression 
of type logical, ^1 and a2 must be of the same type and they 
must be conformable with £3. If ii3 Is a scalar/ si and ii2 
must be scalars, ^1 and a2 may be scalars or array 
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expressions. The result of MERGE is of the same type as ^1 

and a2 and has the same shspe as ii3. 

(?.l) ijl and a2 must be one dimensional array expressions and must 
have the. sans shaF-ie* 

(22) a must be a two dimensional array expression. If the shape 
of ^ is iv^y^^)* the shape of the result of TRANSPOSE will bs 
{nji>m) uith the rovf and column values interchanged. 

(23) If a2 IS omlttecb the function Is applied to all elements of 
al to yield a scalar value. ^1 must be an array* array 
sfiction^ or an array exprcission. If b1 has size zero then 
the result has size zero* unless dimension 3Z of al is the 
only one of siza zero In which case the result has non-zero 
size and z\i alemsnts have the sanie vs!ue» 

(24) The operation performed by HATMUL(al.»^2) depends on the 
shapes of al and ii2. If al and a2 are of arithmetic type* 
the three possible operations areJ 

(1) £l and a2 are two dimensional array express I ens j the 
shape of al is (n*m) and the shape of .a2 is (m*k). 
The shape of the result array Is (n*k). The valu^ of 
the (1*h) element of the result array Is: 

SUM ( al( I* *) * a2(*.t h) ) 

(2) al Is a one di mens I ona I array expression and £2 Is a 
tvio dimensional array expression^ the shape of al is 
(m)* the shape of £2 is (ni*k). The shape of the 
result array is (k). The value of the i th element of 
the rasu I t array is: 

SUM ( £l(*) * a2(** I ) ) 

(3) al is a two dimensional array expression end a2 is a 
one dimensional array expression; the shape of al is 
(n*m)* the shape of a2 is (m). The shape of the 
result array Is (n). The value o^ the Ith element of 
the resu! t arr ay I s: 

SUH ( al( i* *) * a2('!^) ) 

Tha formulas for the values of the three possible operations 
performed by a matrix multiply mathematically define an 
I nt'Srpret?? 1 1 on for the MATMUL function. The formulas do not 
specify the computational method the processor must use to 
compute MATMUL* 

If al and a2 are of type logical* the thrse possible 
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oper^itions are: 



(1) 



J2l and a2 are ti-^o dimensional array expressions; the 
shape of gl Is (n^m) and the shape of aH Is {m^k)» 
The shape of the result array Is <n>k)* The value of 
the { I ^h) element of the array I 



S5 



AMY ( gli if^) •AMD. s2(*> h) ) 



(2) 



<3} 



^1 Is a one dimensional array expression and 2.2 is a 
tHG dimonsional array OKpressionJ tha shape of bI Is 
(ni)j» the shape of a2 is (jn>k). The shape of the 
result array Is (k). The v?3lue of tha ith element of 
the r esu I t arr ay } s s 

ANY { ^l('t) .AND. j2(*jf i ) ) 

tl is a tvio dimensional array suppression and ^2 Is a 
one dimensional array expression^ the shape of ^1 is 
(n^rn)^ the shape of ^Z Is (m). The shape of the 
result array Is {n). The value of the ith element of 
the rasul t array i s* 

ANY ( zH ]? *) .AND, a2{*) ) 

(25) RAMK(a) returns the number of dimensions of a as an integar 
value, a ^ay be a scsilar^ srray> array sectloni* or array 
expression. If a Is a scalar, then RAMK(?i) will return zero. 
RAIlK(ii) v/hera a is an array section returns the number of 
section selectors In the array section reference ja. RANK(a) 
^ihere a is an allocitable >jrray returns the number of 
dimensions of a.* vfhether or not a is allocated. 



(26) If ill is an 
dimensions:* ! 



array, array sactlon^ or array expression with u 
XTENT(al) returns a one dimensional array of 

\ r\t ^O^r values. The value of the ith element 

of EXTENTCal) is the size of the ith dimension of alt The 

result of EXTENT(nl) is undefined If ^1 Is 

array . 



Q 
of the resu 1 1 
The 
an assumed size 



EXTi:nT{2l^a2) returns the size of the dimension of al 
corresponding to the value of a2. The result is an integer 
scalnr value. a2 must be an Integer scalar value such that 1 
i 2.2. ^ Q. The result of £XTHNT( alj32) is undefined if al J s 
an assumed size array and a2 designates the last dimension. 
The result of nXTfcNT{al^^2) i s undefined if al is an 
allouat-ible array that Is not currently allocat^jd. 

(27) SI7.E(al) returns the size of the arrayj» array section^ or 
array s>:prsi;sion al ^n an Integer. The size is the product 
of the sizes of each of the dimensions. The result of SIZE 
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is undefined if b1 is an assumed size array or if 2I is an 
allocatable array that is not currentiy ai located. 

(28) If rjl is ?.n arrays array sections or array expression with n 
dimensions^ then LBOUMO(al) returns a one dimensional array 
of Q integer values. The value of the ith element of the 
result of LQGUHD(al) is the lower bound of the ith dimension 
of al« LBOUHDC «l5ii2) returns as an Integer scalar value the 
lower dimension bound of the dimension of 2I corresponding to 
the value of i2 where 1 £ £i2 ^ b» The I ow8r bound of an 
array section or an array expression is defined to be 1. The 
result of L BOUND is undefimd if 3I is an allocatable array 
that is not curr ent I y al 1 ocated , 

(29) If 2I is an arrays array sections or array expression with n 
dimension/ then UBOUNDtaD returns a one dimensional array of 
D intiijer values. The value of the ith element of the result 
of UBQUNDCal) is the upper bound of the ith dimension of ^1. 
UB0UnD(alj»il2) returns as an integer scalar volue the upper 
bound of the dimension of b1 corresponding to the value of ^2 
/ihori) 1 ^ a2 ^ Q. The result of UBOUNDCal) is undefined if 
al Is an assumed size array. The result of UB0UND{^1^^2) is 
undefined if ^1 \s sn assumed size array and j2 designates 
the last dimension. The upper bound of an array section or 
an array expression is defined to be the number of elements 
In the dimension. The result of UBOUMO(al) or UBQUND(ijl^a2) 
is undefined if 3I is an allocatable array that is not 
currently allocated. 

(30) Pack Array Into Vector. PACK returns a one-dimensional array 
of the same type as si consisting of all elements of al 
cor r^'Spond Ing to true elements of 32. The elements of b1 are 
taken in subscript order. a2 must be a logical array 
expression conformable with £l . If 3.3 Is not presents the 
result array«s size is the number of true elements In 22. If 
il3 Is presontj the result array size Is the sarre ?s a3. ^3 
is a one-dimensional array of the same type as 2I with at 
least as many ol aments as there are true elements in 22, 

(31) Unpack Vector into Array. UNPACK returns an array of the 
same type as 31 and tha same shape as 32. 3Z is a logical 
array. a3 Is an array of the same type as ^1 and the same 
shape as ^2. Elements of the result array corresponding to 
true values of a2 are taken in subscript order and assigned 
successive values of tho one-dimensional array 3l» Each 
element of the result arr ay cor responding to a false value of 
a2 is assigned the value of the corresponding element of 53. 
£.2 :\'Ar\ 2x3 must be conforriab 1 e a rr ays* The number of elements 
in tiio vector 2I must be greater than or equal to the number 
of true values In orray 22* 3.3 may be a scalar. In this 
case^ each element of the result array corresponding to a 
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falsa value of £j2 is assigned the value of ^3, 

(32) al must be an arrays array section or array axpression* The 
type of the result vrill be the same as the type of ^1» 

The roductlon dimension ^By be specified by the optional 

keyword DIN =. 

The mask may be specified by the optional keyword HASK =• 

If a2 (DIH) is omitted ZLnd z mask CiiS) Is specified^ the NASK 
= keyword is required. 

If «3 is not spvQcifiedji it is as if it Her a specified as an 
array conforming to al and having all elements true. 

If 32 is not spacifled^ the function is appii^*d to aM of the 

elements of ^1 corresponding to true elements of ^3 to yield 

a scalar J if al has size zero or if ij3 has no true elements 
then the value is as given in the table belovu 

If a2 is specified^ the function is applied along dimension hZ 
to elements of al corresponding to true elements of a3 to 
yield an array with r^nk RAMK(£l)--l5 nhenevcif the masking by 
23 leaves no elements/ the corresponding component of the 
result is as given in the table balovij if al hgs size zero 
then the result has size zero unless dimension £$2 of ^1 is 
thD only one of size zero^ in Khich case the result has 
non-zero size and all elements have the value given In the 
table below. 



Funct i on 



Rosul t vihen the 
elements Is zero 



number 



of 



sur-i 

PRODUCT 
MAXVAL 

niNVAL 



zero 

one 

the snisllest valid machine number 

of type al 

the largest valid machine number 

of type ^1 



(33) For any argument ^1 of type Integer^ real/ logical/ or 
Boolean the bit string that is operated on is the datum 
itself. 

For any argument ai of type doub I e pr eci si on^ half precision/ 
or coiiiplix ths bit string that is operated on Is REAL(iii). 

If the arguments are type bit/ then the function result Is 
also type bit. If any argument is type bit/ then all 

^iruunients must b^ type bit. 
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(34) DIAGnNAL(al^a2) returns a tvjo dimensional arrays call it 
dia2^ with shape (£2^a2) of the sarne type as al« jal Is a 
scalar or a one dimensional array expression with a2 array 
elements. a2 Is an integer scalar valuct If si Is a one 
dimensional array objects its size must be equal to ^2, If 
diaj(2.^s) for l££^a2 is considered as n one di mens lonal array 
of size a2> its value is al. AM other elements of di^a have 
a default value according to the type of al* Default values 
by type are : 



TYP 



VALUE 



Integer 





Real 


OrO 


Doub 1 e prec Is! on 


0,0 00 


Hal f pr ac Is Ion 


0.0 


Comp 1 ex 


(0.^0) 


Log! cal 


•FALSE. 


Character 


E b 1 anks 


Bit 


QltQtt 



Hhere LEN(ijl) Is m 



(35) SEQ produces a one dimensional integer array with size £ 
given by MAX ( { a2~jl+23) /^S .• D* The array values are ^If 
al+B3j Bl + 2=^23« . ..Jiil+Cs-D^BB. jl end ^2 must be Integer 
scalar values. ^3f if present,, must be a nonzero integer 
scalar value. If £3 Is omitted^ If defaults to one. 

(36) ALT produces a one dimensional logical array of size ^3 
consisting of {b3/ {al+a2) )+l repetitions of £l false values 
follov^ed by ^2 true values truncated on the right to size ^3. 

iil^ £2> bnd a3 must be positive Integer scalar values. 

(37) ROVIWISE returns as its result th^^ roMHise array corresponding 
to its actual argument columnijlse arrays such that each 
element (sl^,,.j»sn) of the resulting rowvilse array will have 
a value Identical to element (sl^...^sn) of the actual 
arguniento 

(38) COLUHNVIISE returns as Its result the columnwise array 
corresponding to its actual argument rowwise array> such that 
each element (sl^...j»Gn) of the resulting columnwise array 
54 1 1 I h ive a value Identical to element (sl^...^sn) of the 
actual argument, 

(3<?) SPREAD increases the di mens i on al i ty of ill by duplicating its 
value along the di mens ion specif led by ^2 23 times. ^1 may 
be r\ scalar (defined to h?\ve zsro dimensions) or an array 
expression viith n dimensions, a2 must be an Integer value 
such that 1 ;^ ^2 < RANK(al)+l» j3 must be an integer value 
such that J2 3> , 
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The result type of SPREAD Is the same as the type of al» If 2l Is a 
scalar^ ^Z must equal 1. The result Isa one dimensional array of 
slz^ l!3 all of Mhose alemants have ths value al« If ^1 Is an array 
vH th shape ( dl> f32j» • • • jtdQ) then the result of SPREAD (al^l^a3) Is an 
arrays call it £e^ iilth the shape of ( ijl^iJ2> • • .^do) vihere the total 
number of dimensions Is n+l and rjj. is the added dimension. The 
value of array section 2£( *.»^-j « , .^sl/ • ♦•^*) vihere l£si^5 is given by 
ai. 

(40) REPLICATE produces an array ^dth the same number of 
dimensions as al and tho same type as al» 31 must be an 
array with dimension q where 1^J3^7« ^2 must be an Integer 
value such that l:^a2^lit a3 must be an integer value such 
that a3>0. If al is an array expression with shape 
(ill»d2^ .•*.»£ib.. .^dn) then the result of REPLICATE (al^ l^^3) 
is an array Hi th shape {dl^d2^ • • • > jS'^^xli > • . .da) • The value of 
the result array Is a3 copies of iil concatenated to form the 
nen ith dimension, 

16.10.1 EE^IEiaiQaS_flH-R^tl£E>nE«iliGUri£[ili^Aii!D_EESULIS. 

Rastrictions on thr. range of .irgynents and results for intrinsic 
functions wisan referenced by thoir specific names are as follows; 

(1) Remaindering: The result for MOD^ AMOD^ HMOD^ and DHOD is 
undefined nhen tha valUQ of tha second argument is zero. 

(2) Transf'^r of Sign? If the value of the first argument of 
ISIGN;> SIGN^ HSIGNj or DSIGN is zcroi the result is zero^ 
vjhich is nelthar positive nor negative {4,1.3). 

(3) Square Root? The value of the argument of SORT.* HSQRTj and 
DSQRT must be greater than or equal to zero. The result of 
CSQRT is the principal value >?ith the real part greater than 
or equal to zero. When the raal part of the result Is zero^ 
the imaginary part is greater than or equal to zero. 

(4) Logarithms: The value of the argument of ALOG^ DLDG^ HLOGj 
ALOGIO^ HLOGIO^ and DLOGIO must be greater than zero. The 
value of the argument of CLOG rnust not be (O.^O.). The range 
of the imaginary part of the result of CLOG is: 
-pi < imaginary part :^ p I . The imaginary part of the result 
is pi only vihen the real part of the argument Is less than 
zero and the imaginary part of the argument is zero. 

(5) Sine^ Coslno^ and Tangent: The absolute value of the argurnent 
of SINj. DSIM^ HSIN> CDS- DCOS/ HCOS^ TANi HTANj and DTAN is 
not restricted to be less than 2 pi, 

(6) Arcsin^: The absolute value of the argument of ASIN^ HASIN^ 
and DASIN must be less than or equal to one. The range of 
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t- ■ 

the result is: -pl/2 < result ^ pi/2. 

C7) Arccosine: The absolute value of the argument of ACOS^ HACOS^ 
and DACaS rnust be less than or *iqual to one. The range of 
the result Is* £ result £ pi. 

(8) Arctanuanti The range of the result for ATAN^ HATAN^ ^n6 
DAT AN Jss -pl/2 < resul t £ pi/2. If the value of the first 
aruuniant of ATAM2^ HATAM2^ or DATAN2 Is positive^ the result 
Is positive. If the value of the first argument Is zero/ the 
result is zero if the second argument Is positive and pi if 
the second argument is negative. If the value of the first 
argusnent is n^jgative^ the result is negativeo If the v€»!ue 
of the second argument is zero^ the absolute value of the 
result is pi/2. The arguments must not both have the value 
zero. The range of the result for ATAN2/ HATAN2/ and DATAN2 
I s ! ~p i < resu 1 1 £ P i . 

(9) Shift: The result for SHIFT is undefined when the absolute 
valUii of the second argument Is greater than the number of 
bit positions in one numeric storage unit. 

(10) Nask: The result for MASK is undefined when the argument is 
negative or Is greater than the number of bit positions in 
one nuj^ierlc storage unit. 

(11) Hyberbolic Arctangent: The absolute value of the argument of 
ATANH must be less than one. 

The above restrictions on arguments and results also apply to the 
Intrinsic functions when referenced by their generic names. 

16,11 £aQQ.iiSSQR=5yil£LIILa-EUtdaiiaHS 

The following functions are processor supplied but are not intrinsic 
functions. As such^ they may he freely replaced by user functions 
or subroutines of the safiie name. 

16.11.1 DAI^ 

The for"! of a reference to DATfi Is: 

DATEO 

The DATE runctlon returns the current dnte as a ch.irccter string in 
ths form » jM'yy-mn-dd» v'hfre yyyy represents the four digits o^ the 
year^ mm represents the number of the month (01^02^ . ..^ 12 )> and dd 
the number of the day of the month. DATE must be d'^clared to be of 
typo ch-5ract;ir nith longth 10 in the calling prograni. 
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16.11.2 irdL 

The form of a reference to TIME Is: 
TIMEO 

The time function returns the current reading of the system clock In 
the form *hh:mm:ss»^ where hh Is the hours From 00 to 23^ mm Is 
minutes from 00 to 59j and ss Is seconds from 00 to 59. TIHE must 
be declared charactar of length 8 In the calling program* 

16.11.3 SECQlil} 

Thcj form of a reference to SECOMD Is: 

SECONDO 

The SECOND function returns the number of CPU seconds used since the 
he J inning of axacution of the program as a value of type resU 

16.11.4 IQCiii^ 

Tha form of a rafer^nce to lOCLAS is: 

lOCLASdn^) 

where: ias is an error code returned by IQSTAT=. 

Tha IQCLAS function taUes an Integer value i^s that Is an 
input/output status code obtained by iaSTAT= on an I/O statement and 
classifies the code Into a limited nu^nher of error classes. The 
integer value returned by the function Is the error class number. 
The error classes and associated numbers are as follows: 

Q £i£l££,-fif-SL££>L 

not an error (ia5 less than or equal to zero) 

1 p hy 3 i c a I d •:> v i c e error 

2 Invalid form.^ttsd^ list-directed^ or NAMELIST Input data 

3 invalid format specification 

4 incorrect value in a siiist> sil^i^ cliisi-? or iuiisl of an 
I/G statefiient 

5 operation prohibited on file 

6 Qxcefjded rscord size 

7 att^Jinpt to read p.qst en6 of file 

8 write operation followed by read on a sequential file 

9 iolist calls for more data than in unformatted record 

10 record manager detects 1 but una 1 ass i f i abl e error. 
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11 output record limit exceeded on file 

16. 11.5 iiUtiEEE 

The form of reference to MUHERR is: 

NUMERRO 

MUMERR returns^ as an integer valuer the number of input errors 
since the last LIMERR call. See the description of LIHERR for 
'letai Is • 

16.11.6 Ublll 

The form of a reference to UNIT is: 

UHITtii^ajh) 
where: 

y Is the unit specifier 

5 is the first variable or array element of the block of memory 
spaclfiad In the preceding BUFFER IN or OUT statement 

h is the last variable op array element of the block of memory 
specified in the preceding BUFFER IN or OUT statement 

^xamp I e: 

BUFFER nUT(5,l) (B{1}^ B(IOO)) 

IF ( UNIT(5j 3(1)^ BCIOO)) 12,14,16 

Control transfers to the statement labeled 12, 14, or 16 If the 
value returns rl was -1,* C, or +1,, repectively. 

Parameters ^ and h of the UNIT function should be included so that 
th3 global opthilzer can associate the call to the UNIT function 
viith possible changes to the values of the entitles between a and b» 
If UNIT Is call ad vfl th only the argument u {zs In most older 
programs) the optimizer viill be unable to detect that values between 
£1 and 12 nr "s bein.9 modified asynchronously during the span of code 
between the BUFFER IN or BUFFER OUT and the corresponding UNIT call. 
Therefore, specification of all three arguments is r f;Commended, 



16,12 £aQaESSQR=5UE£LIED_SyaEQUIUi£S 

Tha follo/iinn subroutines ar a pr oc Gssor-s Jpp 1 I ed but are not 
intrinsic routines. Therefore, they can be replaced by a user 
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16.12 PROCESSaR-SUPPLIED SUBROUTINES 

subroutine or function of the same name without use of an EXTERNAL 

statemsnt . 

16.12.1 REtlASK 

Tha form of a call to REMARK Is: 

CALL Rr.MARK(£) 
Hhera: s^ is a character expression. 

The REMARK call places the character string £ In the job log as a 

message. Messages exceeding a (laxlmum systeni dependent length \r\\ \ 
be truncated • 

16.12.2 HQliLlSa 

The form of a call to CONNEC is: 
CALL COIIHEC(u>£S) 

Mhare: ii Is an integer expression specifying an external unit 
number that is connected to a f I I e 

Q2. is an integer expression .specif vino a chsracter set. 

A call to COMMEC causes the specified unit u to be associated with 
thii terminal device if the job is executing Interactively. If the 
job Is not executing interactively, the unit u will be associated 
viith a device in tha same manner as If the call to CONNEC had not 
appeared. Vih-jn a. call to CONNEC is nade> the contents of the file 
connected to the unit jj become undefined. Input/output operations 
on a unit associated viith an interactive terminal are restricted to 
forrmtted I/3j 1 nclud Ing I 1 st directed and NAMELIST. A unit that Is 
connected to a direct access file may not be specified in a CONNEC 
call. 

A £s value of one specifies Input/output in the 128 cheractar ASCII 
set defined by the X3.4 standard. A iss value of two specifies 
input/output in a transparent mode vjhare the character set employed 
is terminal dependent but gener a I I y re f I ects the native character 
set of the device. Results are undefined for any other value of £S» 

16.12.3 QISCOU 

The form of a call to DISCON Is: 
CALL DlSCON(u) 
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16.0 FUHCTnilS AMD SUBRGUTIN5S 
16.12.3 DISCHH 



Hhtires ii is an intager expression specifying an externa) unit number 

A call to DISCOM disassociates a unit and file from a terminal 
device. Tht> call to DISCQN has no effact if the. unit u is not 
associated with a terminal. After execution of the reference to 
OISCQN^ tiie unit y Is connected to a file of the same name as before 
but the file Is novi on a syst*?m selected device^ normally mass 
storage. The contents of the file are undefined. 



16,12.4 LIllEEE 



The form of a call to LlflERR is: 



CALL LIMERR(iloi) 



Kihare: ila 



is an intecjar expression specifying the maximum number of 
formatted input errors allowed before program execution 
is terminated abnormally. 



Tha LIMERR call allows formatted data Input without risk of abnormal 
termination nhen improper input data is encountered. Vlhen LIMERR is 
used^ proorasii execution is not terminated until the number of errors 
occurring after the call exceeds the value of iia» 

Use of LIMERR will inhibit term i nati on of execution for input data 
errors detaoted during formstted Input Including list directed and 
MAHELIST input. LIHERR has no affect on the processing of errors in 
data input from a connected (terminal) file. 




When improper input data is detected in a formatted or NAMELIST read 
with fewer than iia errors detected^ the bad data field is bypassed^ 
the count of errors detected is incremented by onej» and processing 
continues with the next field. Vlhen improper input data is detected 
in a I i st~di r 2cted raad^ the count of errors detected is Incremented 
by one^ and control passes to the next executable statement 
following the list-directed READ statement. The value of the entity 
corresponding to tho field in ^rror is undefined. 

16.12.5 SAliSEI 



The form of i call to RAHSHT Is: 
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16.12.5 RAHSHT 

CALL RAMSET(sS£iJ) 

vihare ^S3d is a value of type realf Boolean^ or integer used to 
specify the starting seed for the random number function RANF« 

16.12.6 a^ti£EI 

The form of a call to RAMGET is: 

CALL RAHGET(cvi3l) 

vihere s^al is the value of the current seed of the random number 
jenerf^tinj function RAMF. £i:ai must be a variabiti or array element 
of typo real/ Boolean^ or Integer, The value of 5.X2i may be passed 

to RAN5ET at a later time to re^enernte the same sequence of random 
nynibers nith RANF. Results are undef i ned If the value of 2.i£l is 
used In any other manner. 
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17.0 BLOCK DATA SUBPROGRAM 

Block data subprograms are used to provldo initial values for 
varlablas and array elen^ents In named common blocks. 

A block data subprogram Is a program unit that has a BLOCK DATA 
statamont as Its first statement. A block data subprogram is 
nnnexecutab 1 2 . There may be mors than one block data subprograni In 
an executable program. 

17.1 ELQCLIi^DAIA^^IAIEaEMI 

ThQ fonn of a BLOCK DATA statement is^ 

BLOCK DATA Csuill 

vihere s.uh is the symbolic name of the block data subprogram in which 
the BLOCK DATA statement appears. 

The optional name s.Uh is a global name (19.1.1) and must not be the 
same as the name of an external procedure^ main program^ or other 
block data subprogram In the same executable program* The name syh 
must not ba the same as any local nsma in the subprograF;. 

17.2 fiLQC;K>OAIi-.SUa£Ri32Sik^l-S£SIElCII^^ls 

The BLOCK DATA statement must appear only as the first statement of 
a block data subprogram. The only other statements that may appear 
in a block data subprogram are IMPLICIT^ PARAMETER^ DIMENSION^ 
ROV/VIISE> COniinN:^ SAVE^ iiQUIVALOMCHji DATA^ end, and type-statements. 
Mote that c ::)r!F;iant lines are permitted. 

If an entity in a named common block is initially defined, all 
entities having storago units in the common block storage sequence 
must be spaclfied even If they are not all initially defined. More 
than one named common block may have entities initially defined in a 
single block data subprogram. 

Only an entity in a name! common block nay be initially defined in a 
block data subprogram. Mote that entities associated with an entity 
in a common block are considered to be in that common block. 

The sama naniJd comnon block may not be specified in more than one 
block data subprogram In the same executable program. 

There must not be more than one unnaned block data subprogram in an 
exacutabl-s program. Tha name BLKDATf*- is assigned to the unnamed 
block dfitij subprogram. 
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18.0 ASSOCIATION AND DEFINITION 
IB.l SIQEAGE-AHO^AaaOCIIAIIDt^ 

Storage sequences are used to describe relationships that exist 
among varlablesj array elements^ substrings^ common blocks^ and 

arguments* 

lB.1-1 SI0RA££_5£2y£H££ . 

A siQLiiflS a«£lU£Q££ IS a sequence (2»1) of storage units. The siZS 
Q.t 3 S.t£iLajii s.iiflU£Qce Is the number of storage units In the storage 
sequence, A Si2I3£lS yciii is a character storage un i t^ bit storage 
unlt^ or a numeric storaje unit. 

A variable or array element of type integer^ real^ Boolean^ or 
logical has a storao^ secjuence of on« numeric storagij unit. 

A variable or arrav element of type double precision or cofnplex has 
a storage sequence of two numeric storage units. In a complex 
storage sequence^ the real part has the first storage unit and the 

Imaginary part has the second storage unit, 

A variable^ array elements or substring of type character has a 
storage sequence of character storagt* units. The number of 
ohiiracter storage units In the storage sequence Is the length of the 
character entity. The order of the sequence corresponds to the 
ordering of character positions (4.8). 

A variable or array element of type half precision has a storage 
sequence of half of one numeric storage unit. 

A variable or array element of type bit has a storage sequence of 
one bit storajs unit. 

Eacli array and common block has a storage sequence (5.3,5 and 
<"..3.2). 

18.1.2 ASSac.IAIIQ[i-DE-aiaaAS£-SE2yEtiCE^ 

Two storage sequences si and s2 are aS£0j2iai£fi if the 1 th storage 
unit of si is the same ?is the jth storage unit of s2. This causes 
the (l+k)th storage unit of si to be the same as the (J+k)th storage 
unit of 5?.j for each integer k such that 1 <, i +k ^ size of si and 
1 :^ j+k ^ s ize of s2. 
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1B*0 ASSaClATION AMD DEFINITIOM 
18.1,3 ASSOCIATION OF ENTITISS. 



18.1.3 A^SQQ.iAIIQIl-.aE«EyiIII£S. 

Two variables^ array elements* or substrings are aSSSSisijSd '^f their 

storage sequences are assoclateil. Two entities are intiiii^ 
iaas.o£ial£d if they have the same storage sequence. Two entities are 
E^LtiMl^ iiS££>Siaiil£! if they are associated but not totally 
assoc i ated. 

The definition status and valUG of sn entity afftscts the definition 
status and value of any associated entity* An EQUIVALENCE 
statement^ a COHMQM statement^ an ENTRY statement {16.7.3)^ or a 
procedure reference (argument association) may cause association of 
storage saquences. 

An EQUIVALEMCE statement causes association of entities only within 
one program unitj unless one of the equivalenced entities Is also in 
a common block {8,33. 

Argumants and CQMMOM statenients cause entitles In one program unit 
to become associated viith entities in another program unit {8.3 and 
16.9). Note that association batneen actual and dummy arguments 
does not imply association of storage sequences except when the 
actual argument is the name of a variable^ array element* array 
section* array* or substring. 

In a function subprogr-im* an ENTRY statement causes the antry name 
to become associated with the name of the function subprogram which 
appears in the FUNCTION statement. 

Partial association may exist bet^^^aen entitles of different types. 

except for character entities* partial association may occur only 
through the use of CHNFiON* EQUIVALEMCE* or ENTRY st^'tements. 
Partial association must not occur through argument association* 
except for arguments of type character. 

In the examp I eJ 

R'JAL A(4)*B 

COMPLSX C(2) ■ 

nnUBLE PRECISION D 

GQUIVALEMCE (C ( 2) * A( 2) * B)^ (A*D) 

the third storage unit of C* the second storage unit of A* the 
storage unit of B* and the second storage unit of D are specified as 

the same. The storage sequenc-^s may be lllustr?t<'d ss: 
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18.0 ASSOCIATiaN AMD DEFINITION 
18,1.3 ASSOCIATION GF ENTITIES. 



storage unit 



I 1 



2 J 3 1 4 ? 
(1) i^™c(2)— -J 



A(l)! A(2) 

1-- B-- 



A{3)! A{4) J 



A(2) and B are totally associated. The following are partially 
associated: Ad) and C(l)j A{2) and C(2)/ A{3) end C(2)^ B and C{2)^ 
A{1) and D> A(2) and D^ B and D^ C(l) and D> and C(2) and D, Note 
that although Cd) and C(2) are each associated with D^ C(l) and 
C{2) are not associated nith each other. 

Partial association of character entitles occurs when some* but not 
all^ of the storage units of the entities are the same. In the 
examp 1 e : 

CHARACTER A^4^B*4jC=^3 
EQUIVALENCE (A(2:3)/BjC) 

A* B> and C are partially associated. 

la • 2 £V£tiIi^iyAl^QAnS£_ELlIIIII:S-IQ-a£(IQll£-.I)E£ItiED 

Variables/ arrays^ array sections* array elements* and substrings 
become defined as folloHs? 

(1) Execution of an arithmetic* logical* Boolean* bit* or 
character assignment statement causes each entity that 
Pr.5cel€!£ the Equals to become defined. 

(2) As execution of an Input statettient proceeds* each entity that 
is assigned a value of Its corresponding type from the input 
medium bocomas defined nt the tine of such assignment. 

(3) Ex.JC'jtIon of a DO statement causes the DO-var | ab 1 e to become 
defined. 

(4) BejinnInO of execution of action specified by an implied-DO 
list in an input/output statement causes the 
I mpn ed- DO-var 1 abl e to become defined. 

(5) A DATA statement causes entities to become Initially defined 
at tho beginning of execution of an executable program. 

(6) Execution of an ASSIGN statement causes the variable In the 
statement tobecoine defined with a statement l ahe I vslue. 

(7) Whan an entity of a given type becomes defined* all totally 
associated entities of the same type become defined except 
that entitles totally associated with the variable In an 
ASSIGM statoment become undefined ?^hen the ASSIGN statement 
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le.O ASSOCIATION AMD DEFINITION 

IS. 2 SVEHTS THAT CAUSE ENTITIES TO BHCOMc DEFINED 



is executed. 

(8) A ref^renca to a .subprogrs'n causes a dummy srgunent to become 
defined if the corresponding actual argument is defined witli 
a value that is not a statement label value. Note that there 

must ba agrsarnent betMoen the actu^:^! argument end the dummy 
aruunient ( 16,9,3 ) . 

(9) Execution of an input/output statement containing an 
input/output status spf^cifier causes the specified Integer 
variable or array element to bacoms defined* 

(10) Execution of an INQUIRE statement causes any entity that is 
assigned a value during the axacution of tho statement to 
becoiie deflH'^d If no error condition exists, 

(11) When a complex entity becomes defined^ all partially 
associated real or Boolean entitles become defined. 

(12) Whon both parts of a complex entity become defined as a 
result of partially associated real or complex entitles 
becoming defined^ the complex entity becomes defined. 

(13) Whan all characters of a character entity becomtj defined^ the 
char acter ent i ty becomes de f i ne d. 

(14) When all elements of an array become defined^ the array 

becomes daf I ned. 

(15) When all elements of an array section become defined^ the 
array section becomes defined. 

(16) When a BooUian entity becomes defin«dj ail associated Integer 
or real entities become defined* When an integer or real 
entity becomes defined^ all associated Boolean entities 
b a CO in a daf in ad. 

(17) When a doublo precision entity becomes defined^ all partially 
associated Boolean entities become defined. 

(18) If both parts of a double precision entity become defined as 
a rosult of partially associated Boolean entitles becoming 
defined^ the double precision entity becomes defined. 

(19) Zero-sized arrays^ array sections and substrings sre always 
def I ned. 
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18.3 EVENTS THAT CAUSE ENTITIES TO BECOHE U^^DeFIHED 

ia.3 EV£tlI5^IlJAI-.CA!JS£i^£r:lIIII£S-in.fi£an^E.iJ^12£FltJED 

Vfirlablas/ arraysj» array sections^ array elefnents> and substrings 
become undeplned as follows: 

(1) AM entitias ire undefined ot th^ beginning of execution of 
an executable program except zero-sized arrays or those 
entities i ni ti al !y defined by DATA statements, 

(2) When an entity of a given type becomes defined^ all totally 
associated entities of different type become undefined. 
However^ when an entity of type Boolean is associated with an 
antity of type integer or real^ the Boo Jean entity does not 
beconie undeTined when the integer or real entity is defined 
and the Integer or real entity docs not become undefined when 
the Boolean entity Is defined. 

(3) Execution of an ASSIGN statc.Tient causes the variable In the 
statement to become undefined as an integer. Entities that 
are associated with the variable become undefined. 

(4) Whan an entity of type other than character becomes defined^ 
1 1 8 H y assoc 1 ated ent 1 1 i es become undefined^ with the 
ng exceptions: 



II parti bW'J assQi 
following exceptions: 



(a) Mhvjn an entity of type real or Boolean is partially 
associated nlth an entity of type complex^ the complex 
entity does not become undefined when the real or 
Boolean antity becomes defined and the real or Boolean 
entity does not become undefined when the complex 
entity becomes defined 

(b) when an entity of type double precision and on entity 
of type Boolean rire partially associated* the double 
Precision entity does not become undefined when the 
Boolean entity is defined and the Boolean entity does 
not become, undefined nhen the double precision entity 
becomes defined 

(c) when an entity of type complex Is partially associated 
with another entity of typ3 complexj dafinition of one 
.entity does not cause the other to become undefined* 

(5) When the evaluation of a function causes an argument of the 
function or m entity in common to become defined and if a 
r*rercjnciJ to the function appears in an expression in vihich 
the value of the function Is not needed to determine the 
value of the expression* then the argument or the entity in 
common bacomes undsfinod vjhen the expression Is evaluated 
(6,6.1) . 
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18.3 EVENTS THAT CAUSE ENTITIES TO BECO'IE UNDEFINED 



(6) The tixecution of a RETURN statement or an END stater^ent 
within a subprogram causes all entities within the subprogram 
to become undefined Sixcept for the folloNingJ 

(a) Hntltias In blank cofrimon 

<b) Initially defined entities that have neither been 
redefined nor become undefined 

ic) Entltias specified by SAVE statements 

(d) Entities in a named common block that appears in the 
isubprojram and appaars In at least one other program 
unit that is^ either dlrectl:»' or indirectly^ referencing 
the subprogram 

(7) When an error condition or end-of-file condition occurs 
durin^j execution of an input statements all of the entities 
specified by the input list of the statement become 
undef i ned, 

(8) Execution of a direct access input statement that specifies a 
record that has not been previously written causes all of the 
entities specified by the input list of the statement to 
become undefined, 

(9) Execution of an INQUIRE statement may cause entities to 
become undefined {13,10«3), 

(10) Whan any character of a cheracter entity becomes undefined^ 
the character entity becomes undefined. 

(11) When an entity becomes undefined as a result of conditions 
described in (5) through ( 10 ) > all totally associated 
entities become undefined and all partially associated 
entitles of type other than character become undefined. 

(12) When any array e I ement become s undefined^ the orray £nd any 
array sections containing that array become undefined. This 
does not imply that the undefinitlon of one array element 
causes any other array element to become undefined. 
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19.0 SCOPF AND CLASSES OF SYMBOLIC NAMES 

A symbolic name consists of from one to thirty-on«i aJphanumeric 
characters^ the first of i^hich must be a lettsrt Some sequences of 
characters^ such as format edit descriptors and keywords that 
uniquely identify certain statements/ for example^ GO TO/ READ^ 
FORMAT/ etc./ are not symbolic names in sucl-i occurrences nor do they 
forn the first characters of syniboMc names in such occurrences. 

19 . 1 S£Q££-a£-SYHaaLI£-.tiA[i£S 

The scope of a symbolic name is an e>:scutabre program/ a program 
unit/ a PROGRAM statement/ a statement function statement/ or an 
implied-DO list in a DATA statement. 

The name of the main program and th« names of block data 
subprogrsms* external f unct i ons ^ subrout i nes/ and common blocks have 
a scope of an executable program. 

Th« names of variables^ arrays^ constants^ statement functions/ 
intrinsic functions/ NAMELIST group namesj» ^nd dummy procedures have 
a scope of a program unit. 

The names of variables th?\t appaar f?s lummy arguments in a statement 
function statement have a scope of that statement. 

The names of variables that appear as the DO-variable of an 
implied-DG in a DATA statement have o scope of the implied-DD list. 

A symbo I I c uni t name (15.1.1) or alternate unit name (15.1.2) has a 
scope of the PROGRAM statement in which it appears. 

19.1,1 aLQaAL-EaiiiiES. 

The main program/ common blocks/ subprograms/ and external 
procedures ar^ olohal entities of an executable program. A symbolic 
name that identifies a gioba! entity must not be used to Identify 
any other global entity In the same executable program/ except that 
a common block name may be a program name or a subprogram name. 

19.1.1.1 £ia££iis>ni;-£l2l2iil_£iiiilli££x 

A symbolic name in one of the followino classes is a global entity 
in an -jxeoutable program; 

(1) Common block 

(2) External function 

(3) Subroutine 
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19.0 SCOPE AiiD CLASSES OF SYMBOLIC NAMES 
19,1,1,1 Classes of Global Entities. 

(4) Nal n proar a^si 

(5) BjocK data subprografn 
1<?.1.2 LQCAL^EtllillES. 

The symbolic name of a local entity identifies that entity in a 
single prooram unit. Vlithin a program unlt^ a syniboHc name that Is 
in ona class of entitles locci to the program unit must not also be 
In another class of entities local to the program unit* However* a 
symbolic name that Identifies a local entity may.« In a different 
program unit^ identify an entity of any class that Is either local 
to that program unit or global to the executable program. A 
symbolic name that identifies a global entity in a program unit must 
not b2 us'iid to identify a local entity In that progrsm unlt# except 
for a common block naniaj» an external function name (19.2. 2)> and a 
symbolic unit name or alternate unit name (19.2.13). 

19.1.2.1 aiaS^£S-jQl-.LflI23i_£Dtiti£SjL 

A symbolic name in one of the following classes Is a local entity In 
a program un I t. 

(1) Array 

(2) Variable 

(3) Constant 

(4) Stateftient function 

(5) Intrinsic function 

(6) Dummy procedure 

(7) MAMELI5T group name 

A symbolic name that Is a dummy argument of a procedure Is 
classified as a variable^ arrays or durnmy procedure. The 
specification and usage must not violate the respective class rules. 

19.2 QLASStS-aE-^IUnDlK^UAtlE^ 

In a program unit* a symbolic name must not be In more than one 
class except as noted In the following paragraphs of this section. 
Thriire are no restrictions on tha appearances of the same symbolic 
name in different program units of an executable program other than 
those noted in this section. 
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19.2.1 £DMaQM-.fiLD£K 

A symbolic n-ame. is tha name of a common block if and only If It 
appears as a block name in a COMMON statement (8.3). 

A common block name is global to the executable program* 

A common block name in a projrani unit rnay also be the name of any 
local entity other than a constant^ intrinsic functionj* or a local 
variable that is also an external function in a function subprogram* 
If a name is used for both a common block and a locel entity^ the 
appaarance of that naiiia In ^any context other than as a common block 
name in a CGMMOl^ or SAVE statement Identifies only the local entity. 
Mote that an intrinsic function name may be s common block name In a 
proorarn unit that doss net reference the intrinsic function. 

19.2.2 £Xl£EMAL-£UH£Iiai:J 

A symbolic name is the name of an extsrnal function if it meets any 
of the foil owing conditions J 

(1) The name appears immediately following the word FUNCTION in a 
FuMCTIOil stntemant or the v;ord ENTRY In an HNTRY statement 
within a function subprogram. 

(2) It is not an array name^ character variable name* statement 
function name^ Intrinsic function name^ dummy argufrientj or 
subroutine name and every appearance is immediately followed 
by a left parenthesis except in a type-statements in an 
cXTER'lAL statemantj or as an actual argument. 

(3) The name appears Immediately follwing the word FUNCTION in a 
FUNCTION statement in a procedure interface information 
b I ock. 

In a function subprogram^ the name of a function that appears 
immediately after the word FUNCTION in a FUNCTION statement or 
immediately after the uord HllTRY In an ENTRY statement may also be 
the name o*" 3 varlabla In that subprogram (16.5.1). At least one 
such function name must be the name of a variable In a function 
subprogram. 

An fixternal function name is global to tbe executable program. 

19.2,3 suaaauiiLi£ 

A symbo I i c n :ime Is thcj name of a subroutine If It meets either of 
the following conditions' 

(1) The name appears immediately following the word SUBROUTINE In 
a SUBROUTIMH statement or the viord ENTRY In sn ENTRY 
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19.2.3 SUBROUTINE 

statam^nt Hi thin a subroutine subprogram. 

(2) The nafiie appears Inirr-ecHate ly following the word CALL in a 
CALL statement and is not a dummy argument, 

A subroutintJ name is global to the executable program. 

19.2.4 MAIti-EEDSEAU 

A symbolic name is the name of a main program if and only if it 

appears in a PROGRAn statement In the main program. 

A main program name is global to the executable program. 

19.2.5 RLOCK-QAIA-SyaE&QQEAtl 

A symbolic name Is tha n^irne of a block data subprogram if and only 
if it appears in a SLOCK DATA statement. 

A block data subprogram name Is global to the executable program. 

19.2.6 ARRAY 

A symbolic name is the n?^me of «?n array If it appears as the array 
name in an array declarator (5.2) In a DIMENSIorO ROWWISE^ COMMON^ 
or type-statement. 

An array name is local to a program unit. 

An fir ray na?'ie may be the same as a comnion block name. 

19.2.7 MEIABLE 

A symbolic ni5me is the name of a variable If it meets ell of the 
foil Oiling conditions: 

(1) It does not appear in a PARAMETER^ IMTRIMSIC* or EXTERNAL 

stvitoiiient. 

(2) It is not the name of an arrays subroutine^ main program^ or 
block data subprogram. 

(3) It appijars other than as the name of a common blocks the name 
of an external function in a FUNCTION statements or an entry 
name in an ENTRY statement in an external function. 

(^) It is iMi'fcr immediately followed by p left parenthesis unless 
It is inmedi 'vtely preceded by the word FUNCTION in a FUNCTION 
statGinents is immediately preceded by the word ENTRY in an 
ENTRY stat?^mf?nt.* or Is at ths b-ig Inning of a character 
substring nirie (5. 10, IK 
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19.0 SCOPE AMD CLASSES OF SYfiBOLIC MAMES 

19.2.7 VARIABLE 

A v?5r fable nirne in the dummy argument H st of a statement function 
stateriient Is local to the statement function statament in which it 
occurs.. Mote that the use of a name that appears in Table 5 as a 
dummy argument of a statement function removes It from the cisss of 
intrinsic functions. A variable name that appears as an 
I fi«p 11 ad-DO-v ar I ab I e In a DATA statemen t Is local to the implied-DO 
list. All other variable names are local to a program unit> 

A statament function dummy argument n?^ine may also be the name of a 
variable or cornnion block In the program unit. The appearance of the 
name in any context other than as a dummy argument of the statement 
function idontifiof; the local variable or common block. The 
statement function dui^rjy argument name and local variable name have 
the same type and> If of type character^ both have the same constant 
I ength, 

Thii nams of an i mpl i ed-DO-vp.r i ;^b le in a DATA statement may also be 
the n-jme of a variable or common block in the program unit. The 
appearance of the name In any context other than as an 
impli ad-DO-var I abl 2 in the DATA statement identifies the local 
variable or common block* The implied- DO-varlable and the local 
variable have the same type. 

19.2.8 COO^IALII 

A syiiibolic nane Is tlie name of a constant if it appears as a 
symbolic name In a PARAMETER statement. 

Thvi symbolic name of a constant Is local to a program unit. 

19.2.9 SIAIEil£blI_EUli£IIQLl 

A symbolic name is the name of a statement function if a statement 
function statement (16.4) Is present for that symbolic name and It 
Is not an array name. 

A statement function name is local to a program unit* A statement 
function nasne may ba the same as a common block name. 

19.2.10 l[:iIEIHSl£_£yNClin!i 

A symbolic name is tho name of an intrinsic function if It meets all 
of the following condltlonsi 

(1) The name appears in the Specific Name colyiTin or the Generic 
?4ame column, of Table 5. 

(2) It is not -tin array name^ statement function nane* subroutine 
nameji or dummy argument name. 

(3) Every appearance of the symbolic name* except In an INTRINSIC 
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19.0 SCOPE AMD CLASSHS OF SYMBOLIC MAIiES 
19,.^.10 IMTRIMSIC FUNCTION 



statement^ a type~statement^ or as an actual argument^ is 
i mmsdi attj I y folloned by an actual argument list enclosed in 

parenthasas. 

An Intrinsic function name is local to a program unit« 

19.a,ll aUtlliX^ERQCEDyEIil 

A symbolic name is the name of a dummy procedure if the name appears 
in the dummy eroument list of a FUMCTIOib SUBROUTINE^ or SMTRY 
statement and meets one or more of the following conditlonss 

(1) It appears in an EXTERNAL statement* 

(2) It appears i inmad i at c ly fol lowing tha word CALL in aCALL 
state^ient • 

(3) It is not an array name or character variable name^ and every 
appearanca is imm;id i at^^ly follo'jed by a left parenthesis 
except in a type-statementj In an EXTERMAL ststement^ in a 
CALL statement^ as a dummy argument/ as an actual argument^ 
or as a common block name in a COMMON or SAVE statement. 

A dummy procedure name is local to a program unit. 

19.2.12 yMELISI-BSnyf-HAilii 

A syinbollc niiine is a HAflELIST group nanve If and only if it appears 
as a group name in a MAMELIST statement. 

A MAMELIST jroup name is local to a program unit. 

A MAMELIST jroup name nust not appear In any statement except a 
MAMELIST, READ, WRITE, PRINT, or PUNCH s tatement. 
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Th^ table bslow lists the ASCII character set and shows the 
processor-defined weight tables available. The processor-defined 
user-specified weight tab 1 es are selected by parameter values 



suppi i €!d to 
tab les are; 



utility subroutine COLSEQ ( 3«1 . 5) • The defined ^^sight 



»A5CII» 

»ASCII6» 

'CaB0L6» 

'DISPLAY* 

»STAMDARD», 

Fixed and usar-speci f I 8d tables 
'DISPLAY* respectively. The 
»CGB0L6» values. 



are pred*jfined nlth 'ASCII* and 
'INSTALL' paraiTieter value selects 



Hex 












Character 
Code 


ASCII 
Graphi c 


ASCII 


ASCII6 


caBnL6 


DISPLAY 




"— — *"~"Vi e i gn I 


s— — — — — 




00 


NIIL 











45 


01 


SON 


1 








45 


02 


STX 


2 








45 


03 


cTX 


3 








45 


04 


EOT 


4 








45 


05 


-ENQ 


5 








45 


06 


ACK 


6 








45 


07 


BEL 


7 








45 


08 


BS 


8 








45 


09 


HT 


9 








45 


OA 


LF 


10 








45 


OB 


VT 


11 








45 


OC 


FF 


12 








45 


OD 


CR 


13 








45 


0£ 


SO 


14 








45 


OF 


SI 


15 








A5 


10 


OLE 


16 








45 


11 


DCl 


17 








45 


12 


DC2 


IB 








45 


13 


0C3 


19 








45 


14 


DC 4 


20 








45 


15 


NAK 


21 








45 


16 


SYN 


22 








45 


17 


ETB 


23 








45 


18 


CAM 


24 








45 


19 


EM 


25 








45 


lA 


SUB 


26 








45 


IB 


ESC 


27 








45 


IC 


FS 


.28 








45 


ID 


GS 


29 








45 


1£ 


RS 


30 








45 


IF 


US 


31 








45 


20 


SP 


32 








45 


21 


J 


33 


1 


34 


54 


22 


»i 


34 


2 


23 


52 
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23 


# 


35 


3 


5 


48 


2A 




36 


4 


16 


43 


25 


% 


37 


5 


2 


51 


26 


£ 


3^ 


6 


6 


55 


27 


.,.,,'. 


39 


7 


7 


56 


28 


( 


40 


3 


21 


41 


29 


) 


41 


9 


13 


42 


2A 


a. 


42 


10 


17 


39 


2B 


+ 


43 


11 


15 


37 


2C 


.> 


44 


12 


20 


46 


2D 


- 


45 


13 


18 


38 


2E 


• 


46 


14 


12 


47 


2F 


/ 


47 


15 


19 


40 


30 





48 


16 


54 


27 


31 


1 


49 


17 


55 


28 


32 


2 


50 


IS 


56 


29 


33 


3 


51 


19 


57 


30 


34 


4 


52 


20 


58 


31 


35 


5 


53 


21 


59 


32 


36 


6 


54 


22 


60 


33 


37 


7 


55 


23 


61 


34 


38 


8 


56 


24 


62 


35 


39 


9 


57 


25 


63 


36 


3A 


• 


5^ 


26 


53 





3B 




59 


27 


14 


63 


3C 


< 


60 


28 


24 


58 


3D 


= 


61 


29 


22 


44 


3E 


> 


62 


30 


9 


59 


3F 


? 


63 


31 


8 


57 


40 


3 


64 


32 


1 


60 


41 


A 


65 


33 


25 


1 


42 


B 


66 


34 


.26 


2 


43 


C 


67 


35 


27 


3 


44 





68 


36 


28 


4 


45 


E 


69 


37 


2^ 


5 


46 


F 


70 


38 


30 


6 


47 


G 


71 


39 


31 


7 


48 


H 


72 


40 


32 


8 


49 


I 


73 


41 


33 


9 


4A 


J 


74 


42 


35 


10 


4B 


K 


75 


43 


36 


11 


4C 


L 


76 


44 


37 


12 


4D 


M 


77 


45 


38 


13 


4E 


M 


7f3 


46 


39 


14 


4F 





79 


47 


40 


15 


50 


P 


80 


43 


41 


16 


51 


Q 


81 


49 


42 


17 


52 


R 


82 


50 


43 


18 


53 


S 


83 


51 


45 


19 


54 


T 


84 


52 


46 


20 


55 


U 


35 


53 


47 


21 


56 


V 


86 


54 


48 


22 


51 


w 


87 


55 


49 


23 


58 


X 


88 


56 


50 


24 


59 


Y 


89 


57 


51 


25 
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5A 


I 


90 


53 


52 


26 


5B 


I 


91 


59 


3 


49 


5C 


\ 


92 


60 


10 


61 


50 


3 


93 


61 


44 


50 


5£ 


A 


94 


62 


11 


62 


5F 




95 


63 


4 


53 


60 


T 


96 


32 


1 


60 


61 


a 


97 


33 


25 


1 


62 


b 


98 


34 


26 


2 


63 


c 


99 


35 


27 


3 


64 


d 


100 


36 


28 


4 


65 


e 


101 


37 


29 


5 


66 


f 


102 


38 


30 


6 


67 





103 


39 


31 


7 


68 


h 


104 


40 


32 


8 


69 


1 


105 


41 


33 


9 


6A 


J 


106 


42 


35 


10 


6B 


k 


107 


43 


36 


11 


6C 


\ 


108 


44 


37 


12 


6D 


m 


10<5 


45 


36 


13 


6E 


n 


110 


46 


39 


14 


6F 





111 


47 


40 


15 


70 


P 


112 


48 


41 


16 


71 


q 


113 


49 


42 


17 


72 


r 


114 


50 


43 


18 


73 


s 


115 


51 


45 


19 


74 


t 


116 


52 


46 


20 


75 


u 


117 


53 


47 


21 


76 


V 


118 


54 


48 


22 


77 


VI 


ll^i 


55 


49 


23 


78 


X 


120 


56 


50 


. 24 


79 


y 


121 


57 


51 


25 


7A 


z 


122 


58 


52 


26 


7B 


C 


123 


59 


3 


49 


7C 


t 


124 


60 


10 


61 


70 


> 


125 


61 


44 


50 


7S 


M> 


126 


62 


11 


62 


7F 


DEL 


127 


63 


4 


53 
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APPENDIX B - SUMMARY OF LANGUAGE EXTENSIQHS 

Below is a list of Control Data Common FORTRAN language features 
that constitute extensions to ANSI FORTRAN^ 77. 

Ba£ic_C.ancgBts 

If SimboHc names can be up to 31 characters In length and (nay 
include an underscore. 

2. Bit data type and machine word oriented bit manipulation (for 

types bit and Boolean) 

<It2iJI2£±^£5i«LiQeSi_iinil_£)ie£yiinQ_Seoy£Q££ 

1. The characters " (quote) and underscore are added to character 
set 

2. Collation control (for character relationals) 

3. C$~dir actives 
.Q3ia-Iv2£S-.aD£l-.£xiDsiaQis 

1* Bool e-jn typo 

2. Bit type 

3. Half Precision type 

A. HoHsrithj* octal^ and hexadecimal constants 

5. Symbolic constants as real and Imaginary parts of a complex 
constant* 

!• Boolean entities can appear in dimension bound expressions. 

2. Realj haH pr acts lonj double precision^ cofrplex^ and Boolean 
expressions as subscript or substring expressions. 

3. Array sections 

4. Assumed shspe duiinmy arrays 

5. Allocatable arrays 

6. Extend -iljustabla dinension bounds e^cprassions to alloK all 
ant It i as except external function references and array element 
references 

7. ALLOCATE and FREE statements 

CONTROL DATA PRIVATE 
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8« Rowwise arrays 

1. Boolean expressions 

2. Boolean entities In arithmetic expressions 

3. Double precision and complex operands can be combined using the 
+^ "9 */ and /operators* 

4. A double precision operand can be raisad to a complex power. 
5t Boolean entitles in relational expressions 

6, • XOR. op sr at or 

7. Bit ^^''^v '^^ss ions 

6, Bit entities in relational expressions 

1. BOOLEAN type statement 

2« BIT type stnteinant 

3. HALF PRECISION type statement 

4. IHTERFACi: and EMD INTERFACE stateijents 

5. ROWWISE statement 

6. Entitles in na'fied common blocks can bo initialized (by iTieans of 
a DATA statement) in any program unit, 

7. Boolean^ bit> and hnlf precision typ2s in IMPLICIT statement 

8. Boolean* blt> and half precision types in PARAMETER statement 

9. A variable may be specified as inte^or follovilng its sppearance 
in a dlm!5nsion bound express Ion. 

10. Numeric* character^ and bit data may be mixed in common blocks 
^nd vi a EQUIVALENCE. 

1. Replicated value list 

2. Boulaan and Half precision entitles 
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It Boolean and Bit assignment statemsnts 

2* Mu 1 t i pi e ass i gnment statement 

3f Array assignment statements 

4. Extendsfl log leal asslgnnient (I.e. I oglca ) =bi t express I ons ) 

CaQtLoi_Siaism£Dis 

1» Raal^ half precision^ double precision^ complex or Boolean 
expression in computed GO TO statement 

2t Booleen expression in arithmetic IF statement 

3. Boolean expression as DO-parameter 

4. One-trip DO-loops are optional* 

5t £xtandecl*-ranga DO-loops 

6. Logical WMLRE statement 

7. Block WHGRS^ OTHERWISE^ i\nrl ENDWHERE statements. 

iQautzauisyi-Siateaenis 

1. NAHELIST Etaternont 

2. BUFFER IM and BUFFER OUT statements 

3. EMCODE and DECODE statements 
^. PUNCH statement , 

5. Record length specifier in DP£M statement for file accessed 
sr^quent i al ly (maans paoe nidth) 

6. Mare than one unit ctin be connected to a single external file 

7. Extended internal files 

3« Boolean external unit identifier 

9, Buffer Ijsngth specifisr in OPEN st^t^mimt 

10. A comma may optionally follow the output list of an output 
st3tamv:jnt thst spBcifies I I s t-ii rect e d formatting. 

lit Implicit connect Jon« 
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1. Edit descriptors added 

a, "h{l)h(23,,*" 

c. Oil 

d. Oii«m 
e« Zh 

f t Z H • El 
g. 8h 

2. Ah edit descriptor can be used for non-character datat 

3. NAHELIST Tormattlno 

A» Format in noncharacter array 
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EiJIl£Ltl£ia£>aQ£l-.SuilL£iUtiQ£>S 
!• Statement functions 

a. Bo'jleon^ half precision^ and bit statement functions 

b. Statement function reference may occur prior to its 
statement function statement* 

c. Conversion of actual argument to type of dummy argument 
for statement function reference* 

d« The expression in a statement function statement may have 
a substring reference as a primary. 

2, External procedures 

a. Boolean arguments can bc> associated »ji th i nte^isr or real 

ar^um^jnts. 

b» An external procedure name can be the same as a common 
b \ ock name. 

c, A RETURM statement can appear in a main program* 

d* The expression e in RETURM e can be any arithmetic or 
Boolean expressloni as contrasted with Integer type only 
in the standard* 



e* Array valued functions 
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3. Intrinsic functions 

a. Typ?2 conversion 

i • IMT^ REAL> HALFj. DBLE^ and CliPLX can have Boolean 

e^rgunentst 

I I - BOOL function 
iii. BTOL^ LTQB^ HALF added 

b. Boolean operations CAND> 0R> XQR^ NSQVj EQV^ CDMPL) 

c. rn seel 1 aneous functions (S}|IFT> MASK* RAMF) 

d. Additional mathematical functions (GRFj ERFC^ ATANH* SIND* 
CaSD^ TAMD) 

e. Additional functions for half precision (HINT* HNINT* 
IMMINT* IHINT* HABS* ... ) 

f. Array manipulation functions (MERGE* DOTPRODUCT* 
TRANSPOSE^ ... ) 

1. The name of a block data subprogram may be the same as the name 
of a common b I ock. 

A2£2£ila1:i£>Q_aQd_IleflDiti£lQ 

1. Partial association may exist betneen a Boolean entity and a 
double precision or complex entity, 

;?. Assoc! at i on may exist between a Boolean entity and an integer or 
real entity. 

3. Association may exist between character entities and 
noncharacter entities* 



CONTROL DATA PRIVATE 



Control Data Corporation Standard FORTRAN 
TABLE OF CONTENTS 

Tab I e of Conten fcs 



83/06/30 



1.0 IMTRODUCTIOH «.«••••.•.••..«••«...• l~l 

X«XrURrOSfc»« t • • #• « • • • •« • • • • « • •• • •• • l'~l 

1.2 PROCESSOR .•....••••,•••• 1-1 

1.3 SCOPE •..«•••.•• 1-1 

1.3*1 INCLUSIONS. ... ....«....«,. 1-1 

1.3.2 EXCLUSIONS ••....•..••...•• 1-1 

1.4 CONFORMANCE .*,,... .......... 1-2 

1.5 NOTATIOM USED IN THIS STANDARD ...,.,.,,..,, 1-3 

2.0 FORTRAN TERMS AND CONCEPTS ..•.••..••..... 2-1 

<.. .1 bbQUciiCL .. . . «. . . ... . . . .. . • • . . .. . 2—1 

2.2 SYNTACTIC ITEMS 2-1 

2.3 STATEHENTS> CONMENTS* AND LINES , ..•....•••. . 2-2 
2.3.1 CLASSES OF STATEMENTS. ......... 2-2 

2.4 PROGRAM UMITS AMD PROCEDURES ..... 2-2 

2.4.1 PROCEDURES. ...........••,.,...• 2-2 

2.4.2 EXECUTABLE PROGRAM 2-3 

2.5 VARIABLii •.•.••«.•.••....•.....•• 2-3 

2.6 ARRAY .«......•• ,..,...,. 2-3 

2.6.1 ARRAY ELEMENTS 2-3 

2.6.2 ARRAY SECTIONS . ....... 2-4 

2.7 SUBSTRING ..,.•.••.......•• , . 2-4 

il.OjLALAr. ** . . « a • • • • • • » • •• .. «« • « • m m C.'~ 4 

2.9 DUMMY ARGUMENT 2-4 

2.10 SCOPE OF SYMBOLIC NAMES AND STATEMENT LABELS 2-5 

2.11 LIST ........ 2-5 

2.12 DEFINITION STATUS 2-5 

2.13 REFERENCE •..•...««.• 2-6 

2.14 STORAGE 2-6 

2.15 ASSOCIATION ..•.....•.....•...,,.. 2-7 

2.16 SHAPE 2-7 

2.17 CONFORMABILITY ...... ......... 2-8 

2.1R ALLOCATABLE .*.... 2-8 

3.0 CHARACTERS^ LINES^ AND EXECUTION SEQUENCE ....... 3-1 

3.1 FORTRAN CHARACTER SET , 3-1 

3.1.1 LETTERS , • , 3-1 

3.1.2 DIGITS. 3-1 

3.1.3 ALP'lAMuntRIC CHARACTERS 3-2 

3.1.4 SPECIAL CHARACTERS 3-2 

3.1.5 COLLATING SEQUENCE AND GRAPHICS. .......... 3-2 

3.1.6 BLANK CHARACTER. 3-3 

3.2 LINES . 3-3 

3.2.1 C OMi iEi IT L I NE . . . . . . . • . . . • • . . • . * . . « 3—3 

3.2.2 INITIAL LINE 3-4 

3.2.3 CONTIMUATIOM LINE. •......•...•..•.• 3-4 

3.3 STATEMENTS . 3-4 

3.4 STATEMENT LABELS , . . , ^ . . . . 3-4 

3.5 ORDER OF STATEMENTS AND LINES 3-5 

3.6 NORMAL EXECUTION SEQUENCE AND TRANSFER OF CONTROL .... 3-6 

3.7 C.'i.-DIRECTIVE5 ..,....••.*..•• • 3-7 

3.7,1 LISTING CONTROL • • • 3-8 

CONTROL DATA PRIVATE 



„ ,. , , 2 
Control Data Corporation Standard FORTRAN 

83/06/30 

TABLE OF CONTENTS 

3*7. 1,1 List Option Switches ••••••••«•••«• 3-9 

3.7.2 CnNDITIQNAL COMPILATION ••••...'...«.•.. 3-9 
3,7«2*1 Processor Control •••.•••••••••#•• 3-11 

3.7.3 COLLATIOM CONTROL ,,,••.., . . , . • 3-11 

3.7.4 DO-LOOP CONTROL • •.,.•,• • . . • . 3~l2 

4.0 DATA TYPES AND CONSTANTS •,.,..•• A-1 

4.1 DATA TYPES •,,..,,•,.,,,,.,,,,,.,, 4-1 

4.1.1 DATA TYPE OF A NAME. ••,••.•.,,. 4-1 

4.1.2 TYPt3 RULES FOR DATA AND PROCEDURE- IDENTIFIERS. ... 4-1 

4.1.3 DATA TYPE PROPERTIES. 4-2 

4.2 CONSTANTS , • , . , ..,.,,,,...., 4-2 

4.2.1 DATA TYPE OF A CONSTANT. .....••,..,.*. 4-2 

4.2.2 BLAMKS IN CONSTANTS. .... ....... 4-3 

4.2.3 ARITHMETIC CONSTANTS. ....,...•••.,,. 4-3 
4.2,3,1 Siqns of Constants. ....•,.«..,..• 4-3 

4.3 INTEGER TYPE •...•...•.•....,.••... 4-3 
4,3,1 INTEGER CONSTANT, .,,.... ..... 4-3 

4.4 REAL TYPE .,,.,,...•.,...,.,,,,,.. 4-3 

4.4.1 BASIC REAL CONSTANT, , , 4-3 

4.4.2 REAL EXPONENT 4-4 

4.4.3 REAL CONSTANT. . . , , .,•,,.., 4-4 

4.5 DOUBLE PRECISION TYPE . 4-4 

4.5.1 DOUBLE PRECISION EXPONENT. ....,,,,..... 4-4 

4.5.2 DOUBLE PRECISION CONSTANT. , , , , • , . 4-4 

4.6 COMPLEX TYPE • , • , , . 4-5 

4.6,1 CONPLEX CONSTANT . ............ 4-5 

4.7 LOGICAL TYPE ................. 4-5 

4.7,1 LOGICAL CONSTANT, ..,..,,,..,.•,,.. 4-5 

4,3 CHARACTER TYPE ,.......«....,• 4-5 

4,6.1 CHARACTER CONSTANT. ....... . . 4-6 

4.9 BOOLEAN TYPE .... •,,.,.,..,.•, 4-6 

4,9,1 BOOLEAN CONSTANT .......... 4-6 

4.9.1.1 Hollerith Constant •.«,........... 4-6 

4.9.1.2 Octal Constant ................. 4-7 

4.9.1.3 Hexadecimal Constant ,.,.*, ,•«.,,•• 4-8 

4.10 HALF PRECISION TYPE 4-8 

4.10.1 HALF PRECISION EXPONENT 4-8 

4.10.2 HALF PRECISION CONSTANT .,,,,,,...,.•, 4-8 

4.11 BIT TYPE , 4-9 

4,11,1 BIT CONSTANT ,......,. 4-9 

5.0 ARRAYS AMD SUBSTRINGS 5-1 

5.1 ARRAYS AND ARRAY SECTIONS , , . , 5-1 

5,1,1 ARRAY NAME AND ARRAY SECTION REFERENCE ....... 5-1 

5.2 ARRAY DECLARATOR .............. 5-1 

5.2.1 FORN OF AN ARRAY DECLARATOR , , . . 5-2 

5.2.1.1 Form of a Dimension Declarator . . . . . . • . . 5-2 

5.2.1.2 Value of Diinension Bounds , , . • . , • . • . . , 5-3 

5.2.2 KINDS AND OCCURRENCES OF ARRAY DECLARATORS ..... 5-3 

5.2.2.1 Actual Array Declarator ,,,,,........ 5-3 

5.2.2.2 Dummy Arr ay Dec I ar at or , , , • • . . • . • • . • 5-4 
5, 2, 2, 3 A I I ocatabi e Array D«cl«^rator .......... 5-4 

5.3 PROPERTIES OF AN ARRAY ,..,.,.,,., 5-4 

5,3,1 DATA TYPE OF AN ARRAY AND AN ARRAY ELEMENT 5-4 

CONTROL DATA PRIVATE 



Control Data Corporation Standard FORTRAN 
TABLE OF COMTENTS 



83/06/30 



5 
5 

5- 

5.4 

5.5 

5 

5 

5 

5,6 

5 



5 •! 

5.8 
5, 

3.9 
5. 

3.10 

5 t 
5, 

6.0 
6.1 

6 • 
6. 



3.2 DIMENSIONS OF A 

3.3 SIZE OF AN ARRA 

3.4 ARRAY ELEMEMT 

3.5 ARRAY STORAGE S 
ARRAY ELEMENT NAME 
SUBSCRIPT • . • . , 
5.1 FORH OF A 
5*2 SUBSCRIPT 
5.3 SUBSCRIPT 
ARRAY SECTION 
6.1 SECTION S 

5.6.1.1 Form 

5.6.1.2 Sect! 
ARRAY SECTION . . . 
OUHMY AND ACTUAL AR 
a.l ADJUSTABLE ARRA 
USE OF ARRAY NAMES 
9.1 APPEARANCE OF A 

CMARACTER SUBSTRIN 

10.1 SUBSTRING tlAME 

10.2 SUBSTRING EXPR 



N ARRAY . . . 

Y . • • • • • 

RDERING . . . 
EQUENCE 



• '* « 



SUBSCRIPT 

EX PRE 

VALUE 

NAHHS 
UBSCRI 
of a S 
on Suh 



SSION . . . . . 



PT ••.,.. . 
ection Subscript 
scr i pt Express! on 



a . « • • . • « a 

RAYS • • • • • . 
YS AND ADJUSTABLE 

• «•• .... 
RRAY SECTION NAHE 
G ..••*.. 
• ••••«•• 
ESSION, • . . . 



6. 

6. 
6.2 

6, 

6. 



o» 

6.3 

6. 

6. 

6. 

6. 

6. 

6, 

6. 
6.4 

6 . 

6. 



EXPRESSIONS 
ARITHMETIC E 

1.1 ARITMMET 

1.2 FORM AND 

6.1.2.1 Pr im 

6.1.2.2 Fact 

6.1.2.3 Term 

6.1.2.4 Ar i t 

1.3 ARITHHBT 
6.1.3.1 Inte 

1.4 TYPE AND 
6.1.4,1 Bool 

1.5 INTEGER 
CHARACTER EX 

2.1 CHARACTE 

2.2 FHRH AND 

6.2.2.1 Char 

6.2.2.2 C It a r 

2.3 CHARACTE 
RELATIONAL I: 

3.1 RELATION 

3.2 ARITHNET 
INTERPRE 
CHARACTE 
INTERPRE 
BIT RELA 
INTERPRE 

LOGICAL EXPR 

4.1 LOGICAL 

4.2 FGRN AND 

6.4.2.1 Log! 

6.4.2.2 Logi 

6.4.2.3 Logi 



XPRHSSI 
IC QpER 
INTERP 
ar i es, 
or. • 



ONS ••#«,, 

ATORS, .... 
RETATIQN OF ARITHMETIC 



3,3 
3.4 
3.5 
3.6 
3.7 



hme t i c 
IC CONS 
ger Con 
INTERP 
ean Ope 
DIVISin 
PRESSIO 
R OPERA 

inter:' 

a c t e r P 
acter E 
R CONST 
XPRESSI 
AL OPER 
IC RELA 
TATIDN 
R RELAT 
TAT I ON 
TIONAL 
TAT I ON 
ESSIONS 
OPERATO 
INTERP 
c a I P r I 
cal Fac 
c a j T 8 r 



DIM 



Ex 
TA 

St 

RE 
ra 
N. 
N5 
TO 
ROTATION OF CHARACT 



P ressi on. « . 

NT EXPRESSION!. 

ant Expression. 

TATIOM OF ARITHMETIC EXPRESSIONS 

nds and Arithmetic Operators 



NSIONS. 



XPR 



IONS 



IR 



r I 
xp 

AN 
ON 
AT 
TI 
OF 
10 
OF 
HX 
OF 



mar I OS . • . 
ressi on • . 
T EXPRESSION, 



R EXPRESSIONS 



■* . • « . 



uRS. •«.«. 

ONAL EXPRESSION. . • * 

ARITHMETIC RELATIONAL EXPRESSION 
NAL EXPRESSION. 

CHARACTER RELATIONAL EXPRESSIONS 
PRESSION ... 

BIT RELATIONAL EXPRESSIONS 



o • 



RHTATION OF LOGICAL EXPRESSIONS, 
m.?. r ! es. . « . . . « . • • . . . 
tor . •••...•.....« 
m. .......•..,•.. 



5-4 

5-5 

5-5 

5-6 

5-6 

5-6 

5-6 

5-7 

5-7 

5-10 

5-10 

5-10 

5-11 

5-11 

5-12 

5-13 

5-14 

5-14 

5-15 

5-15 

5-16 

6-1 

6-1 

6-1 

6-2 

6-3 

6-3 

6-4 

6-4 

6-5 

6-6 

6-6 

6-11 

6-11 

6-12 

6-12 

6-12 

6-13 

6-13 

6-14 

6-14 

6-14 

6-15 

6-15 

6-15 

6-15 

6-16 

6-16 

6-16 

6-17 

6-17 

6-18 

6-18 

6-18 



CONTROL DATA PRIVATE 



Control Data Corporation Standard FORTRAM 
TABLE OF CQHTENTS 



83/06/30 



6, 
6, 

6,5 , 

6. 

6. 
o • 
6, 
6. 
6, 
6, 
6. 
6t 
6 • 7 
6, 



◦ • 

6, 

6 . 8 
6 • 9 
6t 
6 • 



6. 



1 



6.4. 

6.4. 

4,3 

4.4 

PREC 

5.1 

EVAL 

6.1 

6,2 

6.3 

6.4 

6.5 

6.6 

6.7 

6.B 

BOOL 

7.1 

6.7. 

6.7. 

6.7. 

6.7. 

6,7. 

7.2 

7.3 

criMS 

BIT 

9.1 

9.2 

6.9. 

6,9. 

6,9, 

6.9. 

6.9. 

9.3 

9.4 



2.4 Logi 

2.5 Logi 
VALUE OF 
LOGICAL 

£DEMCE 
SUMMARY 

UATiaM n 

EVALUATI 
ORDER OF 
I^^TEGRIT 
RESTRICT 
eVALUATI 
EVALUATI 
EVALUATI 
EVALUATI 
EAN EXPR 
BOOLEAN 



Dis 

Exp 



ca I 
cal 

LQGICA 
COHSTAM 
F OPERA 
OF INTE 

F EX PRO 
ON OF 
SVALUA 
Y OF PA 
lOMS ON 



junct. 
TQss i on. 



OH 
ON 
OM 
ON 



1.1 
1.2 
1.3 
1.4 
1.5 



Bool 
Bool 
Boo I 
Boo I 
Bool 



OF 

OF 

OF 

OF 
ESSIOI 
OPERAND 
ean Pr i 



L FACTORS^ TERMS 
T EXPRESSION. 
TuR S • « « . , 
RPRETATION RULES 
SSIONS .... 
PERANDS. . . 
TION OF FUNCTION 
RENTHESES, . , 

APPEARANCE OF ARRAY EXPRESSION 
RITHMETIC EXPRESSIONS .... 
HARACTER EXPRESSIONS , , , , . 
SLATIONAL EXPRESSIONS . . . . 
OGICAL EXPRESSIONS 



AND 



EXPRESSIONS 



ean 
ean 
ean 
ean 



Fac 
Ter 
Dis 
Exp 



VALUE OF 
BOOLEAN 
TANT rXP 
EX^RlSSI 
BIT QPER 



FOR?' 

2.1 

2.2 

2,3 

2,4 

2.5 



AND 
Bit 
Bit 
Bit 
Bl t 
Bi t 



VALUH GF 
BIT CONS 



BnOLHA 
CONSTAN 
RESSION 
ONS . . 
A TORS. 

INTERP 
Pr i mari 
Factor. 
Ter 01 , 
D i sjunc 
Express 

BIT FA 
TANT EX 



S 

mar 
tor 

jun 
res 

N F 
T E 
S 



ct . 
s i on 

ACTORS^ TERM 
XPRESSIO 



N 



RET 
es. 



.... 
• « « « 

AT ION OF 



t. ... 

ion. • • 

CTORSi TERN 
PRESSION, 



STATEMENT 
XECUTABLE 



CLASSIFICATION 

STATEMENTS . . 



7.2 NONEXECUTABLE STATEMENTS 



BIT 



A{ 



XPRE 



AND 



XP 



• • , , 



EXPRESSIONS 



• • . 



. . a • 

SI ONS. 



ESSIONS 



C..0 SPECIFICATION STATEMENTS . . 

a.l DHlcNSIOM STATENENT 

8,2 EQUIVALENCE STATEMENT , , , . 

3.2.1 FORN OF AN EQUIVALENCE STATEMENT 

3.2.2 EQUIVALENCE ASSOCIATION. . . . 
0.2. 3 EQUIVALENCE OF ENTITIES OF DIFFERENT TYPES 
8.2.4 ARRAY NAMES AND ARRAY ELEMENT NAMES, • . 
-3.2,5 RESTRICTIONS ON EQUIVALENCE STATEMENTS. 

0.3 COMMON STATEMENT ........ 

8.3.1 FORM OF A COMMON STATEMENT. 

3.3.2 COMMON BLOCK STORAGE SEQU}-:NCE. 

3.3.3 SIZE OF A COMMON BLOCK, , , 

8.3.4 COMNOM ASSOCIATION 

8.3.5 DIFFERENCES BETWEEN NAMED COMMON AND BLANK COMMON 
0.3.6 RESTRICTIONS ON COMMON AND EQUIVALENCE 



6-19 
6-19 
6-19 
6-20 
6-21 
6-21 
6-22 
6-24 
6-24 
6-24 
6-25 
6-25 
6-27 
6-27 
6-28 
6-28 
6-28 
6-28 
6-29 
6-29 
6-29 
6-30 
6-30 
6-32 
6-32 
6-33 
6-33 
6-34 
6-34 
6-35 
6-35 
6-35 
6-35 
6-36 
6-37 

7-1 
7-1 
7-2 

8-1 
8-1 
8-2 
8-2 
8-2 
8-2 
8-4 
8-4 
8-4 
8-5 
8-6 
8-6 
8-6 
8-6 
8-7 



CONTROL DATA PRIVATE 



Control Data Corporation Standard FDRTRAM 

TABLE OF CQMTENTS 



P,,4 TYPE-STATEHENTS •.••..,. 

8.4.1 BIT^ BDOLEAM^ AND ARITMHETIC 

3.4.2 CHARACTER TYPE-STATEMEMT. 
8,5 IMPLICIT STATEHEMT .,,,,, 
B,6 PARAMETER STATEMENT , , , , . . 
8.7 EXTERNAL STATEMENT ,,,.,• 

a, a INTRINSIC STATEMENT 

0.9 SAVE STATEMENT .•,,•,.. 
^,10 R0VIVII5H STATEMENT .,..,, 

8.11 PROCEDURE INTERFACE inFORMATlON 

8.12 VIRTUAL STATEMENT , , . , • , 



TYPE-STATEMENTS 



^'),0 
^.1 
9,2 
9,3 
n,4 

10,0 



DATA STATEMENT ,,.,..,.,. 

FORM DF A DATA STATEMENT , , , , , 
DATA STATEMENT RESTRICTIONS . . . , 
IMPLIEO-DO IN A DATA STATEMENT , , 
CHARACTER CONSTANT IN A DATA STATEMi 



10 
10 
10 
10 



10.5 
10.6 
10,7 
10,8 



10,8,1 
10.8,2 



ASSIGN 

ARITHME 
LOGICAL 
STATEME 
CHARACT 
MULTIPL 
BOOLEAN 
BIT ASS 
ARRAY A 
IDE 
FOR 



IT STA 

ASSI 

;SIGMM 

LABEL 

ASSIG 



MEN 

TIC 

AS 

NT 
ER 
E A 
ASSIGNM 



:)0 



IGN 



IGN 
SSI 
NT I 
ALL 



ME NT 
GHMEN 
FY ST 
STAT 



TEMENTS .,,.,. 
GNMENT STATEMENT . 
ENT STATEMENT , . . 

ASSIGNMENT (ASSIGN) 
NMENT STATEMENT , , 
MENT STATEMENT , , 
ENT STATEMENT . , , 
STATEMENT , , . , , 
T STATEMENTS , , . 
ATE ME NT ,«•,,, 
EMENT , , • , , • . 



11,0 
11,1 
11.2 
11.3 
11.4 
11,5 
11,6 
11. 
11, 
11. 
11,7 
11, 
11, 
11. 
11, 
11, 
11,9 
11.10 
II. 
. 11. 
J. 1 , 
11. 
11. 
11, 
II, 



CON 
UNCO 
CGMP 
ASSI 
ARIT 
LOG I 
BLOC 
6.1 
6,2 
6,3 
ELSE 
7.1 
7.2 
ELSE 
8,1 
8,2 
END 

DO 
10,1 
10,2 
10,3 
10,4 
10.5 
10,6 
10.7 



TROL STATEMENTS 
NDITIONAL GO TO S 
UTED GO TO STATEM 
GNED GO TO STATEM 
HMETIC IF STATEME 
CAL IF STATEMENT 
K IF STATEMENT , 
IF-LEVEL. , . . 
IF~BL3CK, . . , 
EXECUTION OF A BL 

IF STATEMENT . 
ELSE IF-BLOCK, 
EXECUTION OF AN E 

STATEMENT , , , 
ELSE-BLOCK, , . 
EXECUTION HF AN E 
IF STATEMENT , , 
STATEMENT • . , 
RANGE DF A DG-LO 
ACTIVE AND IN ACT 
EXECUTING A DO S 
LOOP CONTROL PRO 
EXECUTION DF THE 
TERMIHAL STATEME 
INCREMENTATION P 



TATEMENT 
ENT . . 
ENT , , 
NT , , 



OCK IF STATE ME 
, • , , , , , 

LSE IF STATE ME 
, , • , , * , 
, • , • , , , 

LSE STATEMENT, 
,,,,,,, 

OP , , , , , 

IVE DH-LOOPS, 
TATEMENT, 
CESSING, , . 
RANGE, , , 
NT EXECUTIOM. 
ROCESSING. , , 



STATEMENT 



S3/06/30 


, . 6-7 




8-7 




8-8 




8-9 




8-10 




8-11 




8-12 




6-13 




8-14 




8-14 




8-15 




9-1 




9-1 




9-1 




9-3 




9-3 




10-1 




10-1 




10-2 




10-2 




10-3 




. . 10-4 




10-4 




10-5 




10-5 




10-5 




10-8 




11-1 




11-2 




11-2 




11-2 




11-3 




11-3 




11-4 




11-4 




11-4 




11-4 




11-5 




11-5 




11-5 




11-5 




11-5 




11-6 




11-6 




11-6 




11-7 




11-7 




11-8 




11-8 




11-9 




11-9 




11-9 



CONTROL DATA PRIVATE 



Control Data Corporation Standard FORTRAN 
TABLE OF CONTENTS 

ll.lO.e TRAMSFER INTO THE RAHGE OF A Da-LQQP 

11.11 CQNTIHUE STATEMENT . • 

11.12 STOP 5TATEHSNT , • • • 

11.13 PAUSE STATEflSHT . . • . 

11.14 END STATEHEHT . ... • 

11.15 LOGICAL WHERE STATEMENT 

11.16 BLOCK WHERE STATEMENT • 

11.16.1 WHERS-LEVEL .... 

11.16.2 WHERE-BLQCK . , • , 

11.16.3 EXHCUTIQM OF A BLOCK WHERE 

11.17 OTHERWISE STATEMENT ... 
11.17.1 0T!1ERWISE-BL0CK , . . 

■ 11.17.2 EXECUTION OF AM OTHERS 
11.16 £m WHERE STATEMENT • . . 

12.0 ARRAY STORAGE ALLOCATION 

12.1 ALLOCATE. STATEMENT .... 

12.2 FREE STATEMENT ••.••. 



13.0 
13,1 
13 
13 
13 
13.2 
13 
13 
13 
13 



13 



13.3 

13 

13 

13 

13.4 

13.5 

13.6 

13.7 

13 

13 

13, n 

13 
13 



13,9 
13 
13 



IM 

REC 

1,1 

1.2 

1.3 

FIL 

2.1 

2.2 

2.3 

.2.^+ 

13.2 

13.2 

.2.5 

13.2 

13.2 

13.2 

13.2 

Ulil 

,3.1 

.3.2 

.3.3 

FOR 

REC 

ERR 

I/O 

.7.1 

.7.2 

REA 

. * j . 1 

.8,2 

13.^^ 

13. B 

13,0 

.9.1 
.9,2 



PUT 

ORD 
FO 
UN 
EN 

£S 
FI 
FI 
FI 
FI 

.4. 

.4. 
IN 

• 5. 

.5. 

,5. 

.5. 

TS 

\m 

CO 
UN 

MAT 

ORD 

OR 
ST 
ER 
EN 

Di 
CO 
IN 

• CO 

T 

• t. . 

.2, 

CllT 
DI 

ID 



/OUTPUT STATEMENTS 



RMATT 
FORMA 
DFILE 



ED RECORD. 
TIED RECOR 
RECORD, 



D . . 



LE 
LE 

LE 

LE 
1 



EX 

PR 

PO 

AC 

Sa<l 



2 DIr 

TERNA 



Sta 
St^i 
Ext 
Ext 



ISTE 
OPER 
SITI 
CESS 

uen u 
ect 
L FI 
ndar 

ndar 
ende 
e n d e 



NCE. . . 
TIES . . 
ON. , . 
, • « « 
iai Access 
Access • 



STATi:M 



STATEMENT 



ENT 



Inte 
Inte 
Inte 
Inte 



IT EX 

MM ECT 
IT SP 
SPEC 
SPEC 
AMD E 
ATUS.* 
ROR S 
D-OF- 
WRITE 
MTROL 
PUT/O 

1 Inp 

2 Out 

3 iRp 

ION n 

RECTI 
uHTIF 



ISTENCE, 
ION OF A U 
ECIFIER AN 
IFIER AND 
IFIER , • 

no-of-file 
srrop^ Am 
pecifier. 
file speci 

, PRINT> A 
INFORM ATI 
UTPUT LIST 
u t List It 
p u t List I 
I ied-DO LI 
F A DATA T 
ON OF DATA 
YlilG A UHI 



rnal F 
r n a I F 
rnal F 
rna! F 
. • • 
, * ,. 
NIT, 
D IDEM 
I DENT I 
, , , 

CONDI 
D END- 

FIER, 
ND PUM 
ON LIS 

a • 

ems, 
tems, 
st , 

RANSFc 
TRAMS 
T , , 



Q Prop 

e Rest 

e Pr op 

e Rest 



TI 
FI 

« 

TI 

OF 



FIER. 
ER . 
, , . 

ONS , 
-FILE 



3rti es 
r let I ons 
ert I es 
r let i ons 
« , , 

, , , 

• • , 
. . • 



SPECIFIERS 



CH 
T. 



STATEHEMTS 



R 

FH 



, , , . . « 

INPUT/OUTPUT 



R , . 



... 
... 



STATEMENT 



83/06/30 


. 11- 


10 


• 11- 


10 


, 11- 


10 


, 11- 


10 


, 11- 


11 


. 11- 


11 


. 11- 


12 


. 11- 


12 


, 11- 


12 


, 11- 


12 


, 11- 


13 


, 11- 


13 


, 11- 


13 


. 11- 


14 


12 


-1 


12 


-1 


12 


-2 


13 


-1 


13 


-2 


13 


-2 


13 


-2 


13 


-2 


13 


-3 


13 


-3 


13 


-3 


13 


-3 


13 


-4 


13 


-4 


13 


-5 


13 


-6 


13 


-6 


13 


-7 


13 


-7 


13 


-8 


13 


-8 


13 


-8 


13 


-8 


13 


-9 


• 13- 


11 


, 13- 


11 


. 13- 


12 


. 13- 


12 


, 13- 


13 


, 13- 


13 


. 13- 


14 


, 13- 


15 


, 13- 


16 


. 13- 


16 


. 13- 


16 


, 13- 


17 


. 13- 


17 


. 13- 


18 


, 13- 


18 



CONTROL DATA PRIVATE 



Controi Data Corporation Standard FORTRAN 
TA3I.S OF CQMTENTS 



13 

13 



13 



13 

13 

13,1 

13 

13 

13 



13 



13,1 
13,1 
13,1 
13 
13 
13,1 
13.1 



,^•3 

.9,4 

13, Q, 

13,9. 

.9.5 

13. 9, 

13.9. 

13.9. 

13.9, 

13,9. 

,9,6 

.9.7 

AUX 
.10.1 
13.10 
.10.2 
13,10 
.10.3 
13.10 
13.10 
13,10 
.10.4 
13.10 
13.10 
13,10 

1 RES 

2 RES 

3 MAM 
.13.1 
.13,2 

4 ENC 

5 BUF 



^;STABLISHI^VG A FORMAT 
FILE POSITION PRIOR TO 

4.1 Sequent i al Access 

4.2 Direct Access « « 
DATA TRANSFER , , . . 

5.1 Unformatted Data Tr 

5.2 Formatted Data Tran 
55.2.1 USIliG A FORMAT SP 

5.2.2 LIST-DIRECTED FOR 

3.2.3 PRIMTIHG OF FORMA 
FILE POSITION AFTER DAT 
INPUT/OUTPUT STATUS S?t 
ILIARY INPUT/OUTPUT STA 

OPEN STATcMEMT . . . 
,1,1 OPEN of a Co 

CLOSE STATEMENT, . . 
,2.1 IrnpMcit Close at 

li^lQUIRE STATEMENT. . 
.3.1 IMQUIRE by FUe. 
.3,2 INQUIRE by Unit. 
.3,3 Inquiry Specifiers 

FILH POSITIONING STATS 
.4,1 BACKSPACE Statemen 
•4,2 ENDFILE Statement, 
,4,3 REVMMD Statement, 
TRICTIONS QM FUNCTION R 
TRICTION on INPUT/OUTPU 
SLIST I?^PUT/OUTPUT , , 

NAMELIST STATEHENT , 

NANELIST DATA TRANSFER 
ODH AND DECODE STATEMEN 
FER IN AND BUFFER OUT S 



DATA TRA 



iSFER 



ans I er 
sf er , 

ECIFICATION 
MATTING . . 
TIED RECORDS 
A TRANSFER 
CIFIER DHFIN 
TEMENTS 



nn acted Unit 



T e r m i n a t 



MENTS. 
t, . 



on of 



EFEREMCES AND 
T STATEMENTS 
. . . , , 

, , • . • 

« . • , 

T5 ... 

TATENENTS 



14,0 
14,1 

14. 

14, 
14.2 
. 14. 
14,3 
14.4 
14.5 

14. 

14. 

14. 
1 
1 

14, 

14. 

14. 

14. 
1 

14. 

14. 
1 



FORMAT 
FORMAT 

1.1 FOR 

1.2 CHA 
FORM OF 
2,1 EDI 
INTERAC 
POSITIO 
EDITING 

5.1 APO 

5.2 H E 

5.3 POS 
4,5.3,1 
4,5,3,2 

5.4 SLA 
5,5 
5,6 
5.7 



SPECIFICAT 
SPtCIFICATI 
MAT STATEME 
RACTER FORM 

A FORMAT S 
T DESCRIPTO 
TION BETVIEE 
NING BY FOR 



ION . . • 

ON METHODS 
NT, . , , 

AT 
PEC 
RS 
N I 

MAT 



SPECIFICATIO 
IFICATION , 



, , , « , , 

NPUT/OUTPUT 
CONTROL , 



LIST 



COL 
S^ 
P E 



4,5,7,1 

5.8 BM 

5.9 MUM 
4,5.9.1 



STROPHE 

DITING 

ITIONAL 

Tj. TL/ 

X Edit 
SH EDIT 
ON EDIT 
SP^ AND 
DITING. 

Scale 
AND BZ 
ERIC ED 

Intege 



AND QUOTE EDITING 



G . ... 

Editing, 



EDITIN 
^ncl TR 
I n g , , , , 

ING. , . , 

ING, . , , 

SS EDITING, 



Fact 
EDIT 
ITIH 
r Ed 



or , 
IHG 
G 
iti 



ng 



AND 



01 



xe 



ST 



FOR 



t i on 



ITE 



AT 



IS 



83/06/30 


, 13- 


18 


. 13- 


19 


. 13- 


19 


, 13- 


19 


. 13- 


19 


. 13- 


20 


, 13- 


21 


. 13- 


21 


, 13- 


21 


. 13- 


21 


, 13- 


22 


, 13- 


22 


, 13- 


22 


, 13- 


22 


. 13- 


26 


, 13- 


26 


, 13- 


28 


, 13- 


28 


. 13- 


28 


. 13- 


28 


. 13- 


29 


• 13- 


33 


• 13- 


34 


. 13- 


34 


. 13- 


34 


• 13- 


34 


. 13- 


35 


. 13- 


35 


. 13- 


35 


, 13- 


36 


, 13- 


36 


. 13- 


38 


14 


-1 


14 


-1 


14 


-1 


14 


-1 


14 


-2 


14 


-3 


14 


-4 


14 


-5 


14 


-5 


14 


-6 


14 


-6 


14 


-6 


14 


-7 


14 


-7 


14 


-7 


14 


-8 


14 


-8 


14 


-8 


14 


-0 


14 


-9 


14 


-9 


, 14- 


10 



CONTROL DATA PRIVATE 



Control Data Corporation Standard FORTRAN 
TABLE OF COllTENTS 

14. 5.^). 2 Real^ Double - f and Half - Precision Editing 

14.5.9.2.1 F SDITIMG • . 

14.5.9.2.2 E AMD D EDITING 

14.5.9.2.3 G EDITING . . 

14.5.9.2.4 COMPLEX EDITING 

14.5.10 L EDITING ..... 

14.5.11 A EDITING ..... 

14.5.11.1 A Editing of Character Data 

14.5.11.2 A Editing of Noncharacter Da 

14.5.12 PROCESSOR-DEPeNDSNT EDITING 

14.5.12.1 R Editing • . « 

14.5.12.2 a Editlnj , , , 

14.5.12.3 1 Editing . . . 

14.5.13 B EDITING ..... 

14.6 LIST-DIRECTED FORHATTING 

14.6.1 LIST-DIRECTED INPUT 

14.6.2 LIST-DIRECTED OUTPUT 

14.7 MAHELIST FQRflATTING . • 

14.7.1 MAMELIST IMpUT . • . 

14.7.2 NANELIST OUTPUT . . 

15.0 MAIM PROGRAM • . . . • 

15.1 PROGRAM STATEflENT . , • 

15.2 MAIN PROGRAM RESTRICTIONS 



16.0 

16.1 
16 
16 
16 
16 

16.2 
16 
16 

16.3 
16 
16 
16 
16 
16 



16.4 
16 
16 
16 

16.5 
16 
16 



16 
16 



FUNCTinilS AND SUB 

CATEGORIES OF FUNC 

,1,1 PROCEDURES, . 

,1.2 EXTERNAL FUNCT 

.1.3 SUBROUTINES. 

.1,4 DUMMY PROCEDUR 

REFERENCING A FUNC 

,2.1 FORM OF A FUNC 

.2.2 iiXECUTION OF A 

INTRINSIC FUNCTION 

.3.1 SPECIFIC NAMES 

.3.2 REFi:RENCI(!G AN 

,3,3 INTRINSIC FUNC 

.3.4 INTRINSIC FUNC 

.3.5 ARRAY REDUCTIO 

16. 3.5. 1 Array Redu 

16.3.5.2 Array Redu 
STATEMENT FUNCTION 

.4.1 FORM OF A STAT 
,4,2 REFERENCING A 
.4.3 STATEMENT FUNC 
EXTERNAL FUNCTIONS 
.5.1 FUNCTION SUBPR 
,5.2 REFERENCING AN 

16.5.2.1 Execution 

16.5.2.2 Actual Arj 
,5.3 FUNCTION SUBPR 
.5,4 USER ARRAY-VAL 

16.5.4.1 Shape of a 

16.5.4.2 User Array 



ROUTINES 
TIONS AND 
... 

IONS. 
... 

E. 

TION . 

TION REFE 

FUNCTION 

S . . • 

AND GEME 

IN TRIMS I 

TION ARGU 

TION REST 

N INTRINS 

c t i n to 

ct i on Al 



SUB ROUT 



RENCE. 
REFERENCE 



RIC MA 
C FUNC 
MENTS 
RICTID 
IC FUN 
s S c ?. I 
no a D 



NE 

TI 

AN 

NS 

CT 

ar . , 

I mens i on 



S 

ON 

D RESU 

. . 

lOMS 



EMENT FUNCTION 
STATEMENT FUNCT 
TION RESTRICTIO 

.... ... 

OGRAM AND FUNCT 

EXTERNAL FUNCT 
of an External- 
umants for an E 
OGRAM RESTRICT! 
UED FUNCTION DE 

User Array-yp.l 
-V;5 luf d Funct io 



ST 
10 
MS 

10 
10 
Fu 
xt 
ON 
CL 

n 



LTS 



• « 

TEMENT. 



STATEMENT 
. .... 

ction Reference 
rnal Function 

. . I. • . , 
RATION • . . 
Function Result 

anie Usage • • , 



83/06/30 



14-11 
14-11 
14-12 
14-13 
14-13 
14-14 
14-14 
14-14 
14-14 
14-15 
14-15 
14-16 
14-17 
14-18 
14-19 
14-19 
14-21 
14-22 
14-24 
14-26 

15-1 
15-1 
15-1 

16-1 

16-1 

16-1 

16-1 

16-1 

16-1 

16-1 

16-2 

16-2 

16-3 

16-3 

16-4 

16-4 

16-5 

16-5 

16-5 

16-5 

16-6 

16-6 

16-7 

16-8 

16-9 

16-9 

16-10 

16-10 

16-10 

16-11 

16-12 

16-12 

16-12 



CONTROL DATA PRIVATE 



Control Data Corporation Standard FORTRAN 
TA3LE OF CONTENTS 



83/06/30 



1 
16,6 

16. 

16, 
1 
1 
1 

16, 
16.7 

16. 

16, 

16. 

16, 
16.8 

16, 

16. 

16. 

16, 
16.^ 

16, 

16. 

16, 
1 
1 
1 
1 
1 
1 

16, 
16.10 

16. 
16,11 

16. 

16. 

16, 

16, 

16. 

16. 
16.12 

16. 

16. 

16. 

16. 

16. 

16. 



6,5, 't. 3 User Array-Valuei Function Rsstrictions 



SU3R0UTIMES 

6.1 SUFiP.OUTI 

6.2 SU8R0UTI 
6 , 6 • 2 • 1 Form 

6.6.2.2 Exec 

6.6.2.3 Actu 

6.3 SUBROUTI 
EMTRY STATEH 

7.1 FORM OF 

7.2 REFEREHC 

7.3 EilTRY AS 

7.4 ENTRY ST 
RETURN STATE 



8,1 

3.2 

8.3 

8.4 

ARGUME 

9.1 

*^.2 



^.3 
6,9 
6,9,3,2 



FORH OF 
nXECUTIO 
ALTERNAT 
DSFINITI 
TS AN 
DUIIMY AR 
ACTUAL A 
ASSOC lAT 
3.1 Leng 



.3.3 
3,4 
3,5 
3.6 

9.4 COMM 
TABLE 5 



6,9 
6,9 
6,9 
6,9 



Var 1 

Arra 
?roc 
Aste 
Rest 
ON B 
IN 



10.1 RHSTRIC 
PROCSSSOR-S 

11.1 DATE . 
TIME , 
SECOND 
lOCLAS 
NUMERR 
UMIT . 



NE SUB 
HE REF 

of 3 

ut 1 on 
al Aro 
NE SUB 
EMT , 
AN ENT 
IMG AN 
sac I AT 
ATE MEN 
MEHT . 
A RETU 
N OF A 
E RETU 
ON STA 

D conn 

GUMENT 
RGUMEN 
I DM OF 
th of 
ab I es 
ys as 
edures 
r I sks 
r i c 1 1 o 
LOCKS, 
TRINSI 
TIONS 
UPPLIE 



• • « . a . . • • . « . « 

PROGRAM AND SUBROUTINE 
cRi;NCE, t , . , , 
CALL Stat eiTiant, , 
of a CALL Statement, 
uments for a Subroutine 
PROGRAM RESTRICTIONS. 



a « « . . a 

STATEMENT, 
TERNAL PROCEDURE 



RY 

ex 
ION, , , , , 

T RESTRICTIONS. 



RN 

RE 
RN . 
TUS 

ON 

Sa 

TS 
DU 

Cha 
as 
Dum 
as 
as 
ns 

C F 
ON 
D F 



, • , , • • 

STATanENT, 
TURN STATEHEi 

, , , , • 
. • . « t 

BLOCKS . . 



T 



BY 



HMY AND ACTUAL ARG 
racter Dumny and A 
Dummy Arguments, 
my Arguments . # 
Dummy ArgumGnts. 
Dummy Arguments. 
on Associ ati on of 



UMENTS 

ctual Argument 



UNCTIONS . 
RANGE OF ARGl 
UNCTIONS , 



11.2 
11.3 
11,4 
11.5 
11.6 
PROCESSOR-SUPPLIED SUBROUTINES 



12,1 

12a2 

12,3 
12.4 
12.5 
12.6 



REMARK 
CONNEC 
DISCON 
LIMCiRR 
RAM5ET 
RANGET 



17.0 BLOCK DATA SUBPROGRAM ..... 

17.1 BLOCK DATA STATEMENT 

17.2 BLOCK DATA SUBPROGRAM. RESTRICTION 



1^.0 ASSOCIATION AND DEFINITinil . . 
18.1 STORAGE AND ASSOCIATION .... 

10.1.1 STGRAGi: SSQUENCi:. . , . , , 

13.1.2 ASSOCIATION OF STORAGE SEQUENCES 

13.1.3 ASSOCIATION OF ENTITIES. . . . 



)MENTS 



TATEME 



NT 



ENTRY 



n t i t i 



AND 



SULTS 



NAM 



16-13 
16-13 
16-13 
16-13 
16-13 
16-14 
16-14 
16-15 
16-15 
16-16 
16-16 
16-17 
16-17 
16-13 
16-18 
16-18 
16-19 
16-19 
16-19 
16-20 
16-20 
16-21 
16-22 
16-23 
16-23 
16-25 
16-25 
16-26 
16-26 
16-28 
16-50 
16-51 
16-51 
16-52 
16-52 
16-52 
16-53 
16-53 
16-53 
16-54 
16-54 
16-54 
16-55 
16-55 
16-56 

17-1 
17-1 
17-1 

18-1 
18-1 
18-1 
18-1 
18-2 



CONTROL DATA PRIVATE 



Control Datij Corporation Standard FORTRAN 

TABLE OF CONTENTS 

18,2 EVENTS THAT CAUSE ENTITI^^S TO BECOME DEFINED • 
IB. 3 EVSMTS THAT CAUSE EfUITIES TO BECOME UMD£FIf!ED 



19.0 SCOPE AND CLASSES OF SYMBOLIC NAMES 

19.1 SCOPE OF SYMBOLIC NAMES 

19.1.1 GLOBAL ENTITIES. 
19,1,1.1 Classes of Global Entitle 

19.1.2 LOCAL ENTITIES. . • 
19.1.2.1 Classes of Lo cal En 1 1 ti es 

19.2 CLASSES OF SYMBOLIC NAMES 
19.2.1 COMMON BLOCK . • . . 
l'^.2.2 EXTERNAL FUNCTION • 

19.2.3 SUBROUTINE • . . • . ^ 

19.2.4 MAIN PROGRAM . . , • ■ 

19.2.5 BLOCK DATA SUBPROGRAM 

19.2.6 ARRAY ,.,.,.. 

19.2.7 VARIABLE •••••. 

19.2.8 CONSTANT •••.,. 

19.2.9 STATEMENT FUNCTION , 
1^^,2,10 IMTRIMSIC FUMCTION 

19.2.11 DUMMY PROCEDURE • . 

19.2.12 NAMELIST GROUP NAME 



10 


83/06/30 


18- 


-3 


, 18- 


-5 


19- 


-1 


. 19- 


-1 


19- 


•1 


19- 


-1 


19- 


-2 


19- 


-2 


19- 


-2 


, 19- 


-3 


19- 


-3 


19- 


-3 


19- 


-4 


19- 


-4 


19- 


-4 


19- 


-4 


19- 


-5 


19- 


-5 


19- 


-5 


19- 


-6 


19- 


-6 



CONTROL DATA PRIVATE 



Control Data Corporation Standard FORTRAN 
TADL:: OF COMTENTS 

Table of Contents 



COl 



